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SEQ 0001 


1.0 GENERAL INFORMATION 
ween ee nee nen nnnnnne SEQ 0002 


THIS DIAGNOSTIC OCCUPIES 14. 5K WORDS OF MEMORY AND IS COMPATIBLE WITH 

BOTH XXDP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP. AND CAN BE CHAINED 
UNDER XXDP, ACT AND APT IN ACT MODE (SEE “CREATE CORE IMAGE” ees 

BELOW FOR DETAILS OF CHAINING PROCLOURE). IT 1S A SINGLE PROGRAN 

FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT WE HAVE INCORPORATED INTO 
1T A CONTROL MODULE WHICH WILL LATER BE RELEASED INDEPENDENTLY AS A 
DIAGNOSTIC SUPERVISOR. 


WHEN THIS DIAGNOSTIC 1S STARTED AT ADDRESS 200. CONTROL GOES 

FIRST TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN “HARD CORE” 
QUESTIONS ABOUT THE ENVIRONMENT. THEN IT WILL ENTER COMMAND 

MODE. INDICATED BY A PROMPT CHARACTER (DS A>). AT COMMAND MODE THE OPERATOR 
MAY ENTER ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 


THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING, 
BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL DISTRIBUTION. 
A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE OF THE SUPERVISOR 
ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN EVENT OF A SOFTWARE PROBLEM. 


1.1.2 DIAGNOSTIC INFORMATION 


THE RL11/RLV11 CONTROLLER TEST (PART 2) 1S A PDOP-11 (LSI-11) 
BASED PROGRAM THAT WILL TEST THE CONTROLLER. IT COMPLIMENTS 
PART 1 BY EXTENDING THE TEST COVERAGE TO INCLUDE WRITE DATA. 
READ DATA, WRITE CHECK AND READ DATA WITHOUT HEADER COMPARE. 
1T 1S AIMED AT FULLY TESTING THE CONTROLLER IN THESE AREAS. 
BUT BY DEFAULT ALSO EXERCISES THE DRIVE. THE TEST COVERAGE OF 
THE PROGRAM 1S EXTREMELY HIGH. 


1.2 SYSTEM REQUIREMENTS 


POP-11/LS1-11 PROCESSOR WITH 16K OR MORE OF CORE 
CONSOLE DEVICE (LA30,LA36. VT5O. ETC. ) 

RLi1/RLV1i1 CONTROLLER(S) 

1 - 8 RLO1 DRIVES 

1 - 8 RLOIK CARTRIDGES WITH BAD SECTOR FILE 
KW11P, KW11L (OPTIONAL) 

LINEPR INTER (OPTIONAL ) 


1.2.2 SOFTWARE REQUIREMENTS 


MAINDEC-11-DZRLB-A 


1.3 RELATED DOCUMENTS AND STANDARDS 
wn anne nnn n nee n nen n nanan nnn nnn= SEQ 0003 


RLO1 USERS MANUAL (EK-RLO1-UG-PRE) 
XXDP USERS MANUAL 
DIAGNOSTIC SUPERVISOR PROGRAM LISTING 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


THE RLO1 SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 
PROGRANS: 


MD-11-DZ2RLA RL11/RLV1i1 RLO1 CONTROLLER TEST (PART 1) 
MD-11-DVRLA RLV11 RLO1 DISKLESS TEST (RLV11 ONLY) 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE RLO1 SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., 
DO NOT FUNCTION PROPERLY. 


2.0 OPERATING INSTRUCTIONS 


FOLLOW STANDARD DEC PROCEDURES TO LOAD THE PROGRAM. (XXDP, 
ABSOLUTE LOADER. UPD1. UPD2) 


2.1.2 STARTING PROCEDURES 


THE PROGRAM STARTS AT LOCATION 200. USE STANDARD DEC PROCEDURES 
TO START THE PROGRAM. 


2.1.3 STEPS FOR QUICK AND SIMPLE EXECUTION 


THE DIAGNOSTIC CAN BE EXECUTED STANDALONE WITHOUT READING THE REMAINDER OF THIS 
DOCUMENT AS FOLLOWS: 


A) LOAD THE DIAGNOSTIC 

B) START AT ADDRESS 200 

C) ANSWER THE HARDCORE Dacca 

D) RECEIVE PROMPT (DS A 

E) ENTER STACCR> 

F) ANSWER HARDWARE AND SOFTWARE QUESTIONS 

G) GET END OF PASS MESSAGES OR ERROR MESSAGES 
H) TO END EXECUTION, ENTER CONTROL/C 



































SEQ 0004 





2.2 SPECIAL ENVIRONMENTS 


THE gteg yA de PROGRAM WILL RUN IN ARE XXDP, XXDP CHAIN, 
ACT. SLIDE AND A 


2.3 PROGRAM OPTIONS 


KXXKAAAAAAAAAAAAARARAAAAAAAA AAA AAA AAA AAA AAA AAA AA AA AAA AAA AA AAA AAT 
STACRT)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST>/EOP: <INCR> 
KKXEAAAAAAAARAAAAAAAAAAAAAAAAAAA AAA LAA AA AAA AAA A AA AAA AAA AAA AAA AAA AAE 


2.3.1.1 TESTS SWITCH (/TESTS: <TEST-LIST>) 


<TEST-LIST> 1S A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5: 8-10 ETC. ) SEPARATED BY COLONS. SPECIFYING 

WHICH TESTS IT IS DESIRED BE EXECUTED. THE TEST NUMBERS RANGE FROM 

1 TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED 

IN ANY ORDER. TESTS WILL BE EXECUTED IN NUMERICAL ORDER REGARDLESS 

OF ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. ON 

THIS AND ALL SWITCHES. THE ANGLE BRACKETS <> ARE PUNCTUATION USED IN THE 

pl Re oy AND ARE NOT TO BE TYPED GY THE OPERATOR. SEE EXAMPLE 
Ni . 3. 1. 


2.3.1.2 PASS SWITCH (/PASS: <PASS-CNT>) 


<PASS-CNT> IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF PASSES. 

A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC (ALL SELECTED TESTS) 
AGAINST ALL UNITS SUBMITTED. THE DEFAULT 1S NON-ENDING EXECUTION: IE, 

EXIT 1S ACCOMPLISHED EITHER BY TYPING A CONTROL/C OR BY A HALT ON ERROR 
yy gree IN WHICH CASE WE RETURN TO COMMAND MODE. SEE EXAMPLE 

AT F23.1. 


2.3.1.3 FLAGS SWITCH (/FLAGS: <FLAG-LIST>) 


<FLAG-LIST> 1S A SEQUENCE OF ELEMENTS OF THE FORM <FLAG>. <FLAG=1>, 
OR <FLAG=0>. SEPARATED BY COLONS. WHERE <FLAG> HAS ONE OF 
THE FOLLOWING VALUES: 


HOE HALT ON ERROR. CAUSING COMMAND MODE TO BE ENTERED WHEN AN 
ERROR 1S ENCOUNTERED 

LOE LOOP ON ERROR. CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 
WITHIN THE SMALLEST DEFINED BLOCK OF CODING (SEGHENT. 
SUBTEST, OR TEST) CONTAINING THE ERROR 


IER INHIBIT ERROR REPORTING 

IBE INHIBIT BASIC ERROR REPORTS 

1XE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 


PNT PRINT NUMBER OF TEST BEING EXECUTED 
BOE BELL ON ERROR 

UAN RUN IN UNATTENDED MODE. BYPASSING MANUAL INTERVENTION TESTS 
ISR INHIBIT STATISTICAL REPORTS 

INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 










+. 
THE FLAGS NAMED OR EQUATED TO 1 ARE SET. THOSE EQUATED TO 0 
ARE CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS — SEQ 0005 
1S NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF 2.3.1 


2.3.1.4 END OF PASS SWITCH (/EOP: <INCR>) 


<INCR> IS A DECIMAL NUMBER INDICATING HOW OFTEN (CIN TERMS OF PASSES) 
1T 1S DESIRED THAT THE END OF PASS MESSAGE BE oe hk THE DEFAULT IS 
AT THE END OF EVERY PASS. SEE EXAMPLE AT END OF 2.3.1 


2.3.1.5 EFFECT OF COMMAND 


THE EFFECT OF THE START COMMAND IS TO INITIATE THE HARDWARE PARAMETER 
DIALOGUE, THE SOFTWARE PARAMETER DIALOGUE. AND THEN THE DIAGNOSTIC 
TESTS THEMSELVES. 


THE HARDWARE PARAMETER DIALOGUE COMMENCES WITH THE QUESTION 
"#@ UNITS?" TO WHICH THE OPERATOR REPLIES WITH A DECIMAL 
NUMBER N FROM 1 TO 64. THE TERM "UNIT" REFERS TO THE DEVICE 
TO WHICH THIS SERIES OF DIAGNOSTICS IS DEDICATED. FOLLOWING THIS ARE 
THE QUESTIONS WHEREBY THE P-TABLES THEMSELVES WILL BE BUILT. EACH 
P-TABLE 1S A CORE-RESIDENT TABLE CONTAINING 

ALL THE HARDWARE INFORMATION FOR ONE UNIT. THE OPERATOR MUST SUPPLY 
N- (NUMBER OF UNITS) VALUES FOR EACH QUESTION. HE MAY 

DO THIS BY GIVING ONE ANSWER TO EACH QUESTION (IN WHICH CASE THE 
SERIES OF QUESTIONS WILL BE POSED N TIMES) OR BY GIVING N VALUES, 
SEPARATED BY COMMAS. TO EACH QUESTION (SERIES WILL BE POSED ONCE). 
EACH QUESTION IS FOLLOWED BY THE RESPONSE RADIX (D FOR DECIMAL. B 

FOR BINARY. O FOR CCTAL. L FOR YES/NO) IN PARENTHESES AND THE DEFAULT 
VALUE AFTER THE PAReNTHESES. 


FOLLOWING THE HARDLIARE QUESTIONS ARE VHE SOFTWARE QUESTIONS TO 
BUILD THE SOFTWARE TABLES. WHICH DEFINE THE MODE (QUICK VERIFY ETC. ) 
THAT THE DIAGNOSTIC WILL EXECUTE IN. 


AT THE POINT WHERE THE QUESTION “@ UNITS?" IS ANSWERED. 

CORE STORAGE 1S ALLOCATED FOR THE P-TABLES. AND IF THERE |S NOT ENOUGH 
TO ACCOMMODATE THEM THE MESSAGE “TOO MANY UNITS" IS ISSUED. IN THIS CASE 
THE DIAGNOSTIC MUST BE EXECUTED MORE THAN ONCE TO TEST ALL UNITS. 


EXAMPLE: 
STA/TESTS: 1: 2-4: 6: 8-10/PASS: 3/FLAGS: IER: HOE=1: UAM: LOE 


THIS COMMAND WILL CAUSE THREE PASSES TO BE MADE. EACH PASS CONSISTING 

OF TESTS 1,2.3.4.6.8.9, AND 10 EXECUTED AGAINST ALL UNITS. THERE IS NO 
DIFFERENCE BETWEEN SAYING <FLAG> AND SAYING <FLAG=1>. THE 

NOTATION <FLAG=0> IS MEANINGFUL ONLY ON A COMMAND OTHER THAN 

START TO CLEAR A FLAG THAT WAS PREVIOUSLY SET. NOTE THAT 

ON ALL COMMANDS ONLY THE FIRST THREE LETTERS ARE SCANNED. 
























































2. 3.2 RESTART COMMAND 


EKAEAAAAAAAAAAAAAAAALAAAAAA ALAA AAT AAA AA AAA AAA ATTA ATTA AAA TAT AAA AAT AAT ATA 
RES(TART)/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST>/UNITS: <UNIT-LIST> 
AAXRAAAAAAAAAAAAATALAAAT ALATA ALATA AAA ALATA AAA ALATA SATA ALAA ALTA TASTES 


2.3.2.1 TESTS. PASS. AND FLAGS SWITCHES 


2.3.2.2 


2.3.2.3 


G i 
<TEST-LIST>, <PASS-CNT>, AND <FLAG-LIST> ARE AS IN THE START COMMAND. 
UNITS SWITCH (/UNITS: CUNIT-LIST>) 


<UNIT-LIST> 1S A SEQUENCE OF DECIMAL NUMBERS (1,2 ETC.) OR RANGES 

OF DECIMAL NUMBERS (1-5, 8-10 ETC.) SEPARATED BY COLONS. INDICATING 
WHICH UNITS IT i DESIRED BE TESTED. THE NUMBERS MAY RANGE FROM 1 THRU 
N (N IS THE NUMBER OF UNITS SPECIFIED IN THE PREVIOUS START COMMAND). 

THE NUMBER INDICATES THE POSITION OF THE P-TABLE AS THE DATA WAS ENTERED 
DURING THE HARDWARE DIAGLOGUE. THE UNITS WHICH ARE 

SELECTED MUST NOT HAVE BEEN DROPPED BY THE DROP — SEE THE 
DISCUSSION OF ADD AND DROP COMMANDS BELOW. DEFAULT 

1S TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED sy A DROP COMMAND. 


EFFECT OF COMMAND 


THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT THE P-TABLES 
FROM THE PREVIOUS START COMMAND (THERE MUST HAVE’ BEEN ONE) ARE USED. IN- 
STEAD OF NEW ONES BEING BUILT. THE UNITS SWITCH GIVES THE ABILITY TO 
SELECT A SUBSET OF THESE. THE SOFTWARE DIALOGUE MAY OPTIONALLY BE RE- 
EXECUTED (OPERATOR WILL BE ASKED). THE COMMAND CAN BE USED AFTER COMMAND 
MODE HAS BEEN REENTERED IN ANY OF THE THREE NORMAL WAYS: A) THE RE- 
QUESTED NUMBER OF PASSES HAVE BEEN MADE 8) AN ERROR WAS ENCOUNTERED 
cones HALT ON ERROR FLAG SET C) A CONTROL/C WAS ENTERED BY THE 


2. 3. 3 CONTINUE COMMAND 


KXXAAAAAAAAAAAARAAAAA TAKARA AAA AAA AAA AAAS 
CON( TINUE )/PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 
KXKAAAAAAAAAAAAAATAARARAA AAA ALAA AAA AAA ATA ATE 


2. 3. 3.1 


2323.2 


2.3.3.3 


PASS SWITCH (/PASS: <PASS-CNT>) 


<PASS-CNT> 1S SAME AS IN START COMMAND, BUT THE DEFAULT IS THE UN- 
SATISFIED PASS-CNT FROM THE PREVIOUS START OR RESTART. IF NONE RE- 
MAINS, THE DEFAULT 1S NON-ENDING EXECUTION. 


FLAG SWITCH (/FLAGS: <FLAG-LIST>) 


<FLAG-LIST> 1S SAME AS iN START COMMAND. BUT UNSPECIFIED FLAGS RE- 
TAIN THEIR CURRENT VALUE. 


EFFECT OF COMMAND 


CONTINUE MUST FOLLOW A START OR RESTART. AND COMMAND MODE MUST HAVE 
BEEN ENTERED DUE TO A HALT ON ERROR OR A CONTROL/C. THE EFFECT 

OF THE COMMAND 1S TO GO TO THE BEGINNING OF THE TEST THAT WAS BEING 
EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. SOFTWRRE DIALOGUE MAY 
OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS MAY NOT BE CHANGED. 


2. 3.4 PROCEED COMMAND 


KXAAAAAAAAA AAA AAA AAA AAA ATE 
PRO(CEED)/FLAGS: <FLAG-LIST> 


SEQ 0006 


KKXKKAAAAAAA AAA AAA AAA AAAS 
2.3.4.1 FLAGS SWITCH (/FLAGS: <FLAG-LIST>) 


<FLAG-LIST> 1S AS IN THE START COMMAND. BUT UNSPECIFIED FLAGS RETAIN 
THEIR CURRENT VALUE. 


2.3.4.2 EFFECT OF COMMAND 


PROCEED MUST FOLLOW A START. RESTART. OR CONTINUE. COMMAND MODE 
MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT OF THE 
COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 

ERROR CALL. NEITHER 4YARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 


SEQ 0007 


2.3.5 CREATE CORE IMAGE COMMAND 


KXXKAAAAAAAAAAAAAAAAARARAAAAAAAAA AAA AAT A AAA AAA AAAS 
CCI/TESTS: <TEST-LIST>/PASS: <PASS-CNT>/FLAGS: <FLAG-LIST> 
KKXKAKAAAAAAAAAAARAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA ATK 


2.3.5.1 TESTS. PASS. AND FLAGS SWITCHES 


<TEST-LIST>. <PASS-CNT>. <FLAG-LIST>. AND ARE AS 
IN THE START COMMAND. EXCEPT THAT THE UAM (UNATTENDED MODE) FLAG 
DEFAULTS TO THE SET POSITION. 


2.3.5.2 EFFECT OF COMMAND 


THE PURPOSE OF THIS COMMAND IS TO CREATE A BIC FILE SUITABLE FOR 
CHAIN MODE EXECUTION. THE XXDP PROCEDURE |S AS FOLLOWS: 


INVOKE THE XXDP UTILITY UPD1 

LOAD XXN: FILE. BIN 

START 200 

CQUESTIONS AND ANSWERS> - 
RESTART UPD1 USING RESTART ADDRESS 

HICORE ADDRESS (IF “PASSED 14. 5K" MESSAGE CANE) 

DUMP XXN: FILE. BIC 


THE OPERATOR DIALOGUE (HARDWARE AND SOFTWARE) WILL 

BE EXECUTED AS IN THE START COMMAND. BUT AT THE END OF THE QUESTIONS 

THE HALT STATE WILL BE ENTERED, AT WHICH TIME THE OPERATOR SHOULD 

DUMP THE PROGRAM TO THE XXDP LIBRARY USING A BIC EXTENSION 

TO INDICATE THAT THIS FILE 1S CHAINABLE. HE SHOULD USE THE XXOP UTILITY 
“UPD1" TO DO THIS. IF THE P-TABLES EXTEND BEYOND 14. 5K, A MESSAGE 

WILL BE ISSUED GIVING THE NEW UPPER CORE LIMIT. a WHICH THE OPERATOR 
MUST ADJUST BEFORE DUMPING. HE MAY NOW DELETE THE - 

NON-CHAINABLE BIN FILE IF DESIRED. SINCE THE BIC FILE HAS ALL THE 
CAPABILITIES OF IT. 


WHEN THIS BIC FILE IS SUBSEQUENTLY EXECUTED IN CHAIN MODE. 
THE OPERATOR DIALOGUES WILL BE BYPASSED. HOWEVER, IF IT IS EXECUTED 
STANDALONE, THE DIALOGUE WILL BE REISSUED. 


NOTE THAT IF THE MESSAGE "TOO MANY UNITS" IS ISSUED, TWO OR MORE 
CORE IMAGES MUST BE CREATED (WITH DIFFERENT NAMES) TO TEST ALL UNITS. 


2. 3.6 ADD COMMAND 





SEQ 0008 
KXKKAAAAAAKAAAAALA RATE 
ADD/UNITS: <UNIT-LIST> 
KXKKAKAKAAAAAAAA ARATE , \ ‘8 


2.3.6.1 UNITS SWITCH (/UNITS: C<UNIT-LIST> 
<UNIT-LIST> 1S AS IN THE RESTART COMMAND. 

2.3.6.2 EFFECT OF COMMAND Ae. 
THE UNITS SPECIFIED ARE ADDED TO THE TEST SEQUENCE. EACH UNIT 
MUST HAVE A P-TABLE IN MEMORY DUE TO AN EARLIER HARDWARE DIALOGUE. 
THIS COMMAND MUST BE FOLLOWED BY A RESTART OR CONTINUE. THE UNITS 
SWITCH MUST BE SPECIFIED. THE ADD COMMAND |S MEANINGFUL ONLY FOR UNITS 
THAT WERE PREVIOUSLY DROPPED. 


2. 3. 7 DROP COMMAND 


KKKAAAAAAAAAAAAAA AKA AAAS 

DROCP)/UNITS: <UNIT-LIST> 

KXKKAAAAAAAAAAAA AAA AAT 

2.3.7.1 UNITS SWITCH (/UNITS: CUNIT-LIST>) 
<UNIT-LIST> 1S AS IN THE RESTART COMMAND. 

2.3.7.2 EFFECT OF COMMAND 
THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING. THE UNITS WILL 
BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START COMMAND. 


THE UNITS SWITCH MUST BE ENTERED. THIS COMMAND MUST BE 
FOLLOWED BY A RESTART OR A CONTINUE COMMAND. 


2. 3.8 PRINT COMMAND 


XXXKKKX 
PRICNT) 
KXKKKKE 
2.3.8.1 EFFECT OF COMMAND 


ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED. THE 
ISR CINHIBIT STATISTICAL REPORTING) FLAG IS CLEARED. 


2. 3.9 DISPLAY COMMAND 


KXAKKAAAAAAAAAAAAAATAAT ATE 

DIS(PLAY)/UNITS: <UNIT-LIST> 

KEAEAAAATAATAL AAA AAA TATA TTT 

2. 3.9.1 UNITS SWITCH (/UNITS: <UNIT-LIST>) 
<UNIT-LIST> 1S AS IN THE RESTART COMMAND. 


2.3.9.2 EFFECT OF COMMAND 






























Joi 
THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR “DROP” COMMAND ARE SO DESIGNATED. 


2.3.10 FLAGS COMMAND 


KXKKKKE 
FLA(GS) 
AXKKXKE 


2. 3.10.1 EFFECT OF COMMAND 
THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 
2.3.11 ZFLAGS COMMAND . 


KERREKKX 
ZFL (AGS) 
KEXEKKKE 


2. 3.11.1 EFFECT OF COMMAND 
ALL FLAGS ARE CLEARED. 


2.3.12 CONTROL CHARACTERS 


A CONTROL C ( C) ENTERED VIA THE CONSOLE DEVICE DURING THE 
EXECUTION OF A DIAGNOSTIC CAUSES A RETURN TO THE DIAGNOSTIC 
SUPERVISOR COMMAND MODE. 


A CONTROL Z ( Z) ENTERED WITHIN ON OF THE THREE OPERATOR DIALOGUES 
(HARDCORE, HARDWARE, OR SOFTWARE QUESTIONS) CAUSES THE DEFAULT 
VALUES TO BE TAKEN FOR THE REMAINDER OF THAT DIALOGUE. 


A CONTROL O ( 0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC CAUSES 


ALL CONSOLE DEVICE OUTPUT TO BE SUPPRESSED FOR THE REMAINDER OF 
THE DIAGNOSTIC OR UNTIL ANOTHER CONTROL O IS TYPED. 


2. 3.13 HARDWARE PARAMETERS 


THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

RL1i1 (L) Y? 


ANSWER YES(Y) IF YOU HAVE AN RL11 CONTROLLER. NO(N) IF YOU 
HAVE AN RLV11 CONTROLLER. 


BUS ADDRESS (0) 1744007 
ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 


VECTOR (0) 3307 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 
BR LEVEL (0) 57 

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER. 
DRIVE (0) 0? 

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 


SEQ 0010 


2. 3.14 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART OR CONTINUE 
1F THE QUESTION: 


CHANGE SW? 
1S ANSWERED YES(Y). THE QUESTIONS ARE: 
DROP ON ERROR LIMIT (L) Y? 


TO ALLOW THE UNIT TO BE DROPPED ONCE A PREDETERMINED NUMBER OF 
ERRORS ARE ENCOUNTERED. 


ANSWER Y OR N 

ERROR LIMIT (0) 107 

NUMBER OF ERRORS ALLOWED BEFORE DROPPING UNIT. 
ANSWER 1 TO 65K 

AUTOSIZE (L) N? 


TO CHECK TO SEE IF UNIT SPECIFIED ACTUALLY EXISTS BEFORE TESTING 
1T (VIA DRIVE READY), IF NOT UNIT WILL NOT BE TESTED. 


ANSWER Y OR N 
COMPARE DATA ON DCK (L) N? 


WHEN A DATA CHECK 1S ENCOUNTERED AND DATA IS KNOWN. ALLOW AN 
INCORE COMPARISON OF DATA. 


ANSWER Y OR N 
# OF WORDS IN ERROR REPORTED (D) 37? : 
NUMBER OF MISCOMPARES TO BE PRINTED ON CONSOLE DEVICE. 
ANSWER O - 128 
2. 3.15 EXTENDED DISCUSSION OF P-TABLE DIALOGUE 





L 3 
THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE FOLLOWING 
DISCUSSION OF WHAT HAPPENS INTERNALLY. 


AS SOON AS THE QUESTION "@ UNITS?" IS ANSWERED (WITH THE ag og 

N. SAY) SPACE “ ae 1S ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT. AND THERE 1S A ONE-TO ONE Sag Seog ge BETWEEN 
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE FORMAT. 


ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF THE 
P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT VALUES 
IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES ARE PLACED IN THE P-TABLES 


FIRST P-TABLE) UNTIL THE STRING OF VALUES IS EXHAUSTED. THE LAST VALUE 
IN THE STRING BECOMES THE NEW DEFAULT AND IS USED THEN AND THERE TO FILL 
THAT SLOT IN THE REMAINING P-TABLES. 


ON SUBSEQUENT TRIPS THRU THE QUESTIONS. THE SAME PROCESS IS CARRIED OUT. 
EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT VALUE 
~ mo OS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE PLAYED 


THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS RECEIVED 
N EXPLICIT VALUES FROM THE OPERATOR. 


IN GIVING A STRING OF VALUES. COMMAS WITHOUT INTERVENING VALUES MAY BE USED 
TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA. THIS SAMPLE RANGE TRANSLATES TO THE 
STRING 6.7,8.9.10 (AN INCREMENT OF 1). JF THE VALUES ARE ADDRESSES. THE 
SAMPLE RANGE TRANSLATES TO THE STRING 6.8.10 (AN INCREMENT OF 2). 


NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET OF 
P-TABLES. ASSUME THAT WE HAVE 64 UNITS. AND THAT THERE ARE THREE HARDWARE 
PARAMETERS FOR EACH (THREE SLOTS IN THE P-TABLE. THREE HARDWARE QUESTIONS 
IN THE DIALOGUE). LET THE DESIRED VALUE FOR THE FIRST PARAMETER 

BE THE NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED VALUE FOR THE SECOND 
PARAMETER BE EQUAL TO THE UNIT NUMBER (1.2,3.....64) EXCEPT FOR UNIT 

50. WHICH SHOULD RECEIVE THE VALUE 49. LET THE DESIRED VALUE FOR THE THIRD 
PARANE TER Bae NUMBER 76 FOR THE FIRST 20 UNITS AND THE NUMBER 77 FOR THE 
LAST 44 UNITS. 


THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 
# UNITS (D) 7? 64 


UNIT 1 

CQUESTION 1> ? 75 
QUESTION 2> ? 1-20 
{QUESTION 3> ? 76 
UNIT 21 


CQUESTION 1> ? 
<QUESTION 2> ? 21-49,,51-64 
<QUESTION 3> ? 77 


THE FIRST TIME THE SERIES 1S ASKED. SLOT ONE RECEIVES A 75 IN ALL 
64 TABLES. SLOT TWO RECEIVES THE VALUES 1.2,3,....20 IN TABLES 1 THRU 20 
AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A CONSTANT 76 


SEQ 0011 


Mm 1 
IN ALL 64 TABLES. 


THE SECOND TIME THRU THE SERIES. TABLES 21 THRU THE END ARE GOING TO 

BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR THE 
THE OPERATOR IN THE FORM “UNIT XX" AT THE BEGINNING OF EACH SERIES). 
QUESTION 1 1S RESPONDED TO BY A <CR>. SO SLOT ONE STAYS 

AT CONSTANT 75 IN TABLES 21 THRU 64%. SINCE NO st EXLICIT oy ARE TYPED 
IN. SLOT TWO GETS THE VALUES 21,22,23....,.49 IN TABLES 21 THRU 49. AND 
GETS A 49 IN SLOT 50, AND GETS THE VALUES 51, 52,53 .. 7 64 IN TABLES 

51 THRU 64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 


THE DIALOGUE 1S TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE SEEN GIVEN FOR AT LEAST ONE QUESTION 
(NAMELY QUESTION 2). c 


2.4 EXECUTION TIMES 


SEQ 0012 


ONE PASS OF THE PROGRAM TAKES APPROXMIATELY 90 SECONDS. 
3.0 ERROR INFORMATION 


ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DECIVE. ERROR 
——- ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT 
1S: 


DZRL? XXX ERR YYYYY TST 222 SUB PPP PC: RRRRRR 
WHERE: 


? 1S PROGRAM LETTER 
XXX 1S SFT - SOFT ERROR 
HRD - HARD ERROR 

DV FAT - DEVICE FATAL ERROR 

SYS FAT - SYSTEM FATAL ERROR 
YYYYY IS THE ERROR NUMBER 
222 1S THE TEST NUMBER 
PPP 1S THE SUBTEST NUMBER 
RRRRRR 1S THE PROGRAM LISTING LOCATION 


ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR 
ALONG WITH A ONE LINE DESCRIPTION ANU RELEVENT DATA. 


EXAMPLE: 


ONE LINE DESCRIPTION 

COPTIONAL SECOND LINE) 

COPTIONAL THIRD LINE) 

BEFORE COMMAND: CS: XXXXXX BA: XXXXXX DA: XXXXXX MP: XXXXXX 

TIME OF ERROR: CS: XXXXXX BA: XXXXXX DA: XXXXXX MP: XXXXXX XXXXXX XAXXXAXX 


REGISTER DESCRIPTIONS CAN BE FOUND IN SECTION 5. 0. 


ie: - 


3.2 ERROR HALTS .. *%,°' 


1 
ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG: HOE. THERE ARE NO OTHER HALTS. 


4.0 PERFORMANCE we PROGRESS REPORTS 


THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS. 


4.2 PROGRESS REPORTS 


THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS. : 


5.0 DEVICE INFORMATION TABLES 


THE RL11/7RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4) 
REGISTERS FOR CONTROL OF THE SUBSYSTEN. = 


RLCS - CONTROL AND STATUS REGISTER (XXXXX0O) 


BIT 15 - COMPOSITE ERROR lpm 
BIT 14 - DRIVE ERROK , 
BIT 13 - NON EXISTANT MEMORY ERROR y “3 
BiT 12 - HEADER NOT FOUND (WITH BIT 10 SET) ~~ ; 
- DATA LATE (WITH BIT 10 CLEAR) ratte . 
BIT 11 - HEADER CRC (WITH BIT 10 SET) cit 
- DATA CRC (WITH BIT 10 CLEAR) i Ps 
BIT 10 - OPERATION INCOMPLETE inte tal he >» =" (a 
BIT 9/8 - ORIVE SELECT (0-3) : ee ap IS > 
BIT 7 - CONTROLLER READY : 3 oo. gts Nec. 
BIT 6 - INTERRUPT ENABLE : ry .. : 
BIT §& - EXTENDED BUS ADDRESS (BIT 17) eee beuit 
BIT 4 - EXTENDED BUS ADDRESS (BIT 16) ae | >. 
BIT 3-1 - FUNCTION CODE . of \ 
0 - NOP (POP-11) MAINT (LSI-11) Ske e ~: - 
1 - WRITE CHECK * 
2 - GET DRIVE STATUS + ; 
3 - SEEK : r S ag _ * ‘aes 
4 - READ HEADER i» PS 
5 - WRITE DATA + oilh: ¢ up tte 
6 - READ DATA : D pis - 
7 - REAC WITHOUT HEADER COMPARE ‘ ~ 
BIT G - DRIVE READY ; ‘ 
’ . ie ne e bl 


RLBA - BUS ADDRESS REGISTER (XXXXX2)- 


BITS 15-1 BUS ADDRESS OF DATA TRANSFER 
BIT O SHOULD BE O 


SEQ 0013 








RLOA - DISK ADDRESS REGISTER (XXXXx4) 


T 15 - MUST BE ZERO(O) 

T 14-7 - CYLINDER ADDRESS FOR TRANSFER 
T 6 - SURFACE FOR TRANSFER 

T 5-0 - SECTOR FOR TRANSFER (0-47) 


FOR SEEK FUNCTION 


BIT 15 - MUST BE ZERO(O) 

BIT 14-7 - DIFFERENCE TO NEW CYLINDER 

BIT 6-S - MUST BE ZERO(O) 

BIT 4 - SURFACE 

BIT 3 - MUST BE ZERO 

BIT 2 - SEEK DIRECTION( 1 - IN 7 0 - OUT ) 
BiT 1 - MUST BE ZERO 

BIT O - MUST BE ONE(1) 


FOR GET STATUS FUNCTION 


BIT 15-4 - IGNORED SHOULD BE ZERO 
BIT 3 - DRIVE RESET 

BIT 2 - MUST BE ZERO 

BIT 1 - MUST BE ONE 

BIT O - MUST BE ONE 


BIT 15 - O - WORD COUNT(TWO'S COMPLIMENT) 
FOR READ HEADER FUNCTION 


BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 
- ZERO WORD (SECOND READ) 
- HEADER CRC (THIRD READ) 


FOR GET STATUS FUNCTION 


HAS DRIVE STATUS 


WRITE DATA ERROR 
CURRENT HEAD ERROR(CHE) 
WRITE LOCK STATUSC(WL) 
SEEK TIME OUT(SKTO) 
SPIN ERROR(SPE) 

WRITE GATE ERROR (WGE) 
VOLUME CHECK (VC) 


BoOwDDoow 
S355554 
a 
<) 
segue ng 6s 


SEQ 0014 


- DRIVE SELECT ERROR(DSE) 
- RESERVED(O) 

- SURFACE 

- COVER OPEN 


1 - SPIN UP 

BRUSH CYCLE 

LOAD HEADS 

SEEK - TRACK COUNTING 
SEEK - LINEAR MODE 
UNLOAD HEADS 

SPIN DOWN 


6.0 TEST SUMMARIES 


TEST 01 


TEST 02 


TEST 03 


TEST O04 


TEST 05 


TEST 06 


- WRITE NPR INTEGRITY 

THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL NOT CAUSE 

A BUS TRAP THEREFORE VERIFYING THE NPR LOGIC BETWEEN THE 
CONTROLLER AND PROCESSOR. 

- WRITE FUNCTION 

THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL RESET 
CONTROLLER READY AND POST NO ERRORS 

- WRITE FUNCTION INTERRUPT 

THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL GENERATE 

AN INTERRUPT ON COMPLETION. 

- PROPER INCREMENT OF RLBA ON WRITE 

THIS TEST WILL VERIFY THAT THE BUS ADDRESS REGISTER INCREMENTS 
PROPERLY ON A WRITE FUNCTION. 

- PROPER INCREMENT OF RLDA ON WRITE 

THIS TEST WILL VERIFY THAT THE DISK ADDRESS REGISTER INCREMENTS 
PROPERLY ON A WRITE FUNCTION. 

- FORCE HEADER NOT FOUND WITH WRITE 

THIS TEST WILL FORCE A HEADER NOT FOUND ERROR ON A WRITE. THE 


RLDA 1S SET UP TO LOOK FOR SECTOR 40, A WRITE 1S THEN ISSUED. 
THE HEADER NOT FOUND ERROR SHOULD THEN SET. 


SEQ 0015 


SEQ 0016 
TEST 07 - FORCE INTERRUPT WITH HNF 


THIS TEST WILL FORCE A HEADER NOT FOUND ERROR UNDER INTERRUPT 
CONTROL. 

TEST 08 - CHECK OP! TIME WITH HNF 
THIS TEST WILL TIME THE SETTING OF HNF (OPI) FROM ISSUANCE. 
THIS 1S DONE BY ISSUING A WRITE TO SECTOR 40. THE TIME OF OPI 
SHOULD BE AROUND 200 MILLISECONDS. 

TEST O9 - MULTIPLE SECTOR TRANSFER ON WRITE 
THIS TEST THE ABILITY FOR THE WRITE FUNCTION TO WRITE MORE THAN 
ONE SECTOR. WE SET UP FOR A TWO SECTOR WRITE. 

TEST 10 - CHECK DIRECTION OF WRITE NPR 
THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A WRITE FUNC- 
TION 1S FROM MEMORY TO THE CONTROLLER. THIS IS DONE BY 
WRITING A PATTERN IN MEMORY AND ISSUING A WRITE. THEN CHECKING 
MEMORY TO VERIFY THAT IT DID NOT GET DISTURBED. 

TEST 11 - CHECK FULL INCREMENT OF RLBA 
THIS TEST WILL CHECK THAT THE RLBA CAN INCREMENT OF THE FULL 
16 BIT RANGE. THIS IS DONE BY ISSUING A ONE WORD WRITE TO 
CHECK EACH BIT TOGGLE FROM 1-0 AND O-1. THIS IS DONE FROM O 
TO 177776 REGARDLESS OF MEMORY S1ZE. 

TEST 12 - BA BIT 16 INCREMENT 
THIS TEST WILL CHECK THAT BUS ADDRESS BIT 16 WILL SET WHEN THE 
RLBA IS 177776. AND THAT THE RLBA GOES TO 0. 

TEST 13 - BA BIT 17 INCREMENT 
THIS TEST WILL CHECK THAT BUS ADDRESS BIT 17 WILL SET WHEN 
BIT 16 AND THE RLBA ARE SET. THE RLBA AND BIT 16 ARE CHECKED 
TO GO TO ZERO. 

TEST 14 - READ NPR INTEGRITY 
THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL NOT CAUSE 


A BUS TRAP THEREFORE VERIFYING THE NPR LOGIC BETWEEN THE 
CONTROLLER AND PROCESSOR. 


TEST 15 - READ FUNCTION 
THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL RESET 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


20 


21 


22 


23 


24 


CONTROLLER READY AND POST NO ERRORS. 


- READ FUNCTION INTERRUPT 

THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL GENERATE 

AN INTERRUPT ON COMPLETION. 

- CHECK DIRECTION OF READ NPR 

THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A READ FUNC- 
TION 1S FROM CONTROLLER TO THE MEMORY. THIS IS DONE BY 
WRITING A PATTERN IN MEMORY AND ISSUING A READ. THEN CHECKING 
MEMORY TO VERIFY THAT IT DID NOT GET DISTURBED. 

- PROPER INCREMENT OF RLBA ON READ 

THIS TEST WILL VERIFY THAT THE BUS ADDRESS REGISTER INCREMENTS 
PROPERLY ON A READ FUNCTION. 


- PROPER INCREMENT OF RLDA ON READ 


THIS TEST WILL VERIFY THAT THE DISK ADDRESS REGISTER INCREMENTS 


PROPERLY ON A READ FUNCTION. 


- FORCE HEADER NOT rOUND WITH READ 

THIS TEST WILL FORCE A HEADER NOT FOUND ERROR ON A READ. THE 
RLDA 1S SET UP TO LOOK FOR SECTOR 40. A READ IS THEN ISSUED. 
THE HEADER NOT FOUND ERROR SHOULD THEN SET. 

- FORCE INTERRUPT WITH HNF 


THIS TEST WILL FORCE A HEADER NOT FOUND ERROR UNDER INTERRUPT 
CONTROL. 


- CHECK HEADER COMPARE LOGIC 

THIS TEST WILL EXTENSIVELY CHECK THE CYLINDER AND HEAD BITS OF 
THE HEADER WORD TO COMPARE CORRECTLY. THIS 1S DONE BY WALKING 
AND GROWING O'S AND 1'S THRU THE PROPER RLDA BITS AND ISSUING 
READ TO SEE IF ALL BIT POSITIONS CAN COMPARE. 

- MULTIPLE SECTOR TRANSFER ON READ 

THIS TEST THE ABILITY FOR THE READ FUNCTION TO WRITE MORE THAN 
ONE SECTOR. WE SET UP FOR A TWO SECTOR READ. 

- FORCE HNF AT END OF TRACK 


THIS TEST WILL CHECK THE ABILITY TO DETECT HEADER NOT FOUND 
AT THE END OF A TRACK. THIS DONE BY SETTING UP FOR A THO 


SEQ 0017 





TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


25 


26 


2? 


28 


29 


30 


31 


32 


SECTOR READ AT SECTOR 39. 


- FORCE NON-EXISTANT MEMORY ERROR 


THIS TEST WILL CHECK THAT THE NON-EXISTANT MEMORY ERROR (NXM) 
CAN SET. WE WILL ISSUE A READ TO THE MAXIMUM ADDRESS AND 
es ERROR. (THIS TEST WILL NOT BE DONE ON A 128K 


- FORCE NXM UNDER INTERRUPT 

THIS TEST WILL ATTEMPT TO FORCE AN INTERRUPT VIA NXM. (THIS 
TEST WILL NOT BE DONE ONA 128K MACHINE. ) 

- CHECK READ WRITE LOOP 

THIS TEST WILL WRITE A PATTERN TO SECTOR O AND TRY TO RECOVER 
1T WITH A WRITE. 

- CHECK OF SILO LINES 

THIS TEST WILL CHECK THAT WE CAN WRITE AND READ UNIQUE BIT 


PATTERNS VERIFY THAT THE LINES ON THE SILO ARE NOT STUCK OR 
4 TOGETHER. THIS IS DONE WITH WALKING AND GROWING O'S AND 
1°S. 


- CHECK THROUGHPUT OF SILO 


THIS TEST WILL ATTEMPT TO CHECK THAT THE FALL THROUGH OF THE 
SILO 1S WORKING CORRECTLY. WE WRITE A SECTOR OF 128 UNIQUE 
Ally ne Bg READ IT BACK CHECKING THAT EACH LOCATION IS UNIQUE 
AND CORRECT. 


- CHECK ZERO FILL ON WRITE 
THIS TEST WILL CHECK THE ABILITY OF THE CONTROLLER TO FILL THE 
REMAINING SECTOR WITH ZEROS ON A WRITE. WE WRITE A SECTOR WITH 


FROM 1 TO 127 WORDS. READ IT BACK AND VERIFY THAT THE NON 
WRITTEN WORDS ARE ZERO. 


- CHECK SECTOR BITS ON HEADER COMPARE 


THIS TEST WILL CHECK THAT THE SECTOR BITS CAN COMPARE CORRECTLY. 


THIS 1S DONE BY WRITING THE SECTORS ADDRESS INTO THE SECTOR 

FOR A FULL TRACK. EACH SECTOR IS READ TO VERIFY THE SECTOR HAS 
THE CORRECT DATA. IF NOT THEN THE SECTOR BITS ARE NOT COMPARING 
CORRECTLY. 


- WRITE CHECK NPR INTEGRITY 


THIS TEST WILL CHECK THAT THE WRITE CHECK WILL FUNCTION WITHOUT 
CAUSING A BUS TRAP. TEST IS SET UP TO HANDLE BUS TRAPS. 


SEQ 0018 


TEST 33 - WRITE CHECK FUNCTION 


THIS TEST WILL CHECK THAT A WRITE CHECK FUNCTION WILL COMPLETE 
WITH THE SPECIFIED TIME WITHOUT POSTING ERRORS. 


TEST 34 - WRITE CHECK FUNCTION INTERRUPT 


THIS TEST WILL CHECK THAT AN INTERRUPT CAN BE GENERATED FROM 
ISSUING A WRITE CHECK. 


TEST 35 - PROPER INCREMENT OF RLBA ON WRITE CHECK 


THIS TEST WILL CHECK THAT THE RLBA INCREMENTS PROPERLY DURING A 
WRITE CHECK. 


TEST 36 - PROPER INCREMENT OF RLDA ON WRITE CHECK 


THIS TEST WILL CHECK THAT THE RLDA INCREMENTS PROPERLY DURING A 
WRITE CHECK. 


TEST 37 - MULTIPLE SECTOR WRITE CHECK 


ogg | st} WILL CHECK THAT WE CAN WRITE CHECK MORE THAN ONE SECTOR 
IME. 


TEST 38 - FORCE DOCK WITH WRITE CHECK 
THIS TEST WILL CHECK THAT WE CAN DETECT A DOCK DURING A WRITE 
CHECK. THIS !S DONE BY MODIFYING MEMORY BETWEEN A WRITE AND A 
WRITE CHECK. 
TEST 39 - FORCE DCK WITH WRITE CHECK INTERRUPT 


THIS TEST WILL CHECK THAT A DOCK DURING A WRITE CHECK WILL CAUSE 
AN INTERRUPT TO OCCUR. 


TEST 40 - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 


THIS TEST WILL VERIFY THAT WE CAN SUCCESSFULLY WRITE CHECK ALL 
WORD COUNTS FROM 1 - 127. 


TEST 41 - 42 - EXTENDED CHECK OF WRITE CHECK 


THESE TESTS VERIFY THAT WE CAN WRITE CHECK SUCCESSFULLY ALL PAT- 
TERNS. PATTERNS USED ARE WALKING 1°S. O'S. GROWING 1°S, O'S. 


SEQ 0019 


TEST 43 - READ WITHOUT HEADER COMPARE 
THIS TEST VERIFIES THAT THE FUNCTION READ WITHOUT HEADER COMPARE 
(7) RESETS THE CONTROLLER READY AND POSTS NO ERRORS. THE DISK 
ADDRESS 1S SET TO ALL ONES. 

TEST 44 - READ WITHOUT HEADER COMPARE !NTERRUPT 


THIS TEST WILL VERIFY THAT THE FUNCTION READ WITHOUT HEADER 
COMPARE (7) CAN GENERATE AN INTERRUPT ON COMPLETION. 


TEST 45 


TEST 46 


TEST 47 


- CHECK RD W/O HDR CMP READS 


THIS TEST CHECKS THAT THE FUNCTION CAN ACTUALLY RECOVER DATA. 


WE WRITE A PATTERN IN MEMORY AND CHECK THAT THE FUNCTION CAN 
OVERLAY IT WITH DATA. 

- CHECK RLBA INCREMENT WITH RD W/O HOR CMP 

THIS TEST CHECKS THAT THE RLBA CAN INCREMENT PROPERLY ON THE 
FUNCTION. 

- CHECK RLDA DOES INCREMENT 


THIS TEST CHECKS THAT THE RLDA DOES INCREMENT WITH THE 
FUNCTION READ WITHOUT HEADER COMPARE. 


SEQ 0020 


7.0 PROGRAM LISTING SEQ 0021 


O3-NOV-77 10:02 
O3-NOV-77 09: 54 


DATA 


TABLE OF CONTENTS 


LIST TO CHECK HEADER COMPARE LOGIC 
BUFFER FOR READ/WRITE 


TEXT 


GLOBAL ERRORS 

INITIALIZATION CODE 

GLOBAL SUBROUTINES 

TO CHECK FOR CONTROLLER ERRORS 


MAIN. MACY11 30(104%6) 

DZRLEA. P11 
2893 GLOBAL 
2958 
3025 
3031 GLOBAL 
3138 
3384 
3525 
3559 ROUT INE 
3621 LOAD RLCS 
3858 TEST 
3909 XXTEST 
3965 XXTEST 
4007 ¥XTEST 
4050 XXTEST 
4093 XXTEST 
4136 XXTEST 
4192 *XTEST 
4255 XXTEST 
4308 XXTEST 
4366 XXTEST 
4416 xXTEST 
4472 xXTEST 
4528 XXTEST 
4571 XXTEST 
4605 XXTEST 
4645 TEST 
4707 xXTEST 
4747 xXTEST 
4789 TEST 
4828 XTEST 
4877 *2TEST 
5008 XTEST 
5067 TEST 
5103 TEST 
5146 xXTEST 
5193 TEST 
5279 TEST 
5376 TEST 
5472 TEST 
5577 S2TEST 
5689 TEST 
5772 TEST 
5837 x2TEST 
5908 TEST 
5981 SaTEST 
6054 TEST 
6140 TEST 
6213 SZTEST 
6297 S2TEST 
6374 aaTEST 
6455 TEST 
6536 sxTeEST 
6566 SaTEST 
6602 x3TEST 
6664 TEST 
6710 aTEST 


uw 

ee 

am 
#eeteettbpte 


WRITE NPR INTEGRETY 
WRITE FUNCTION 
WRITE FUNCTION INTERRUPT 
PROPER INCREMENT OF RLBA ON WRITE 
PROPER INCREMENT OF RLDA ON WRITE 
FORCE HEADER NOT FOUND WITH WRITE 
FORCE HEADER NOT FOUND WITH WRITE INTERRUPT 
CHECK OP! TIME WITH HOR NT FND 
MULTIPLE SECTOR TRANSFER ON WRITE 
CHECK DIRECTION OF WRITE NPR 
CHECK FULL RLBA INCREMENT 
BA BIT 16 INCREMENT 
BA BIT 17 INCREMENT 
TEST READ NPR INTEGRITY 
READ FUNCTION 
READ FUNCTION INTERRUPT 
CHECK READ NPR DIRECTION 
PROPER INCREMENT OF RLBA ON READ 
PROPER INCREMENT OF RLDA ON READ 
FORCE HEADER NOT FOUND WITH READ 
FORCE HEADER NOT FOUND WITH READ INTERRUPT 
CHECK HEADER COMPARE LOGIC 
CHECK MULTIPE SECTORS ON READ 
FORCE HDR NT FND AT END OF TRACK 
FORCE NON-EXISTANT MEMORY ERROR 
FORCE NON-EXISTANT MEMORY ERROR INTERRUPT 
CHECK READ WRITE LOOP 
CHECK SILO LINES 
CHECK THROUGHPUT OF SILO 
CHECK ZERO FILL ON WRITE 
CHECK SECTOR BITS OF HEADER COMPARE 
WRITE CHECK NPR INTEGRETY 
WRITE CHECK FUNCTION 
WRITE CHECK FUNCTION INTERRUPT 
PROPER INCREMENT OF RLBA ON WRITE CHECK 
PROPER INCREMENT OF RLOA ON WRITE CHECK 
MULTIPLE SECTOR WRITE CHECK 
FORCE DOCK WITH WRITE CHECK 
FORCE OCK WITH WRITE CHECK INTERRUPT 
CHECK ZERO FILL ON WRITE WITH WRITE CHECK 
EXTENDED CHECK OF WRITE CHECK FUNCTION 
EXTENDED CHECK OF WRITE CHECK FUNCTION 
READ WITHOUT HEADER COMPARE FUNCTION 
READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT 
CHECK RD W/O HOR CMP ACTUALLY READS 
CHECK RLBA INCREMENT WITH RO W/O HOR CHP 
CHECK RLDA DOES INCREMENT WITH RD W/O HOR CMP 


SEQ 0022 


OUTERR 


DZRLER. 


MACY11 30(1046) 
Pil O3-NOV-77 09: 54 


002000 


002000 


002000 
002000 


002074 


002000 


000000 
oo0co000 


000000 


10:02 PAGE 83 


. ENABLE AMA 
. ENABLE ABS 


LE AB 
.NLIST ME, CND, MD 


. =2000 


SVC 
SVC INS=0 
SVCTAG=0 


POINTER BGNSW, BGNSF T, BGNDU 


BGNMOD MDHEOR 
HEADER 


DZRLB. A, 0 
a 


dARa 

a00 
CSREVISION 
CSEDIT 


ooo0o0°o 


LSD 1SPATCH 
LSINIT 
LSCLEAN 
LSHARD 
LSSOFT 
LSDVTYP 


SEQ 0023 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-1 


DZRLEA. P11 O3-NOV-77 O09: 54 SEQ 0024 
ost 002076 037734 .WORD LSLAST 
2837 002100 ENOMOD 
2838 
2839 
2840 002100 DEVREG 
(5) 002100 0o00000 . WORD 
a 002102 000001 . BLKW 
2842 002104 DEVTYP <RLO1> 
(3) 002104 046122 030460 000 .ASCIZ @RLOIA 
(2) 002112 . EVEN 
2843 002112 BGNMOD GLBEQAT 
= 002112 EQUALS 
) : 
(1) +; BIT DIFINITIONS 
i 2 ; 
(1) 100000 BI1T15== 100000 
(1) 040000 BiITi4== 40000 
(1) 020000 BIT13== 20000 
(1) 010000 BIT12== 10000 
(1) 004000 BITii== 4000 
(1) 002000 B1T10== 2000 
(1) 001000 BITO9== 1000 
(1) 000400 BITO8== 400 
(1) 000200 BI1T07== 200 
(1) 000100 BITO6== 100 
(1) 000040 BITOS== 40 
(1) 000020 BITO4== 20 
(1) 000010 BITO3== 10 
(1) 000004 BITO2Z== 4 
(1) 000002 BITOis=-2 
(1) 000001 BiTOO== 1 
(1) ; 
(1) 001000 BIT9== BITOS 
(1) 000400 BIT8== BITOs 
(1) 000200 BIT7== BITO7 
(1) 000100 BiTé== BITOb 
(1) 000040 BITS== BITOS 
(1) 000020 BiT4== BITO4 
(1) 000010 BIT3== BITOS 
(1) 000004 BIT2== BITOZ 
(1) 000002 BiTiz= BITO1 
(1) 000001 BITO== BITOO 
(1) ; 
(1) >; EVENT FLAG DEFINITIONS 
(1) ; EF 32: EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
(1) 3 EF 16: EFO1 AVAILABLE FOR PROGRAM USE 
(1) ; 
(1) 000040 EF. START== 32. ; START COMMAND WAS ISSUED 
(1) 000037 EF. RESTART== 31. ; RESTART COMMAND WAS ISSUED 
(1) 000036 EF. CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
(1) 000035 EF. NEW== 29. ; A NEW PASS HAS BEEN STARTED 
(1) 000034 EF. PHR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 
(1) ; 
(1) 000020 EFi6== 16. 


OUTERR MACY11 30(1046) 


DZRLEA. P11 


Fe Tt ae tt ae ee, Ee ee ae ee ee ee ee 
ome ee ee ee pe Oe eB pe Od pa me ee ee oem oat ped eet pe ot oe pt o> pb 
eee eee ee eee le ae es le es le 


03-NOV-77 


O3-NOV-77 O09: 54 


000001 


000340 
000300 


10:02 PAGE 


ive) 

Ww 
t 

» 


EF15== 
EF 14=s= 


“O=Nwsemn 


m 
8 
iY 
“ 
DD by & UT N00 0 ot we 


EFOI== 


’ 


+ PRIORITY LEVEL DEFINITIONS 


om te oo 
& 
oO 
o 


PRiOO== 0 


INTEN=B1T6 
ERR=B1T15 
DERR=B1T14 
OP 1=B1T10 


0S1=B81T8 
0S2=B1T9 
DS3=BIT8'BIT9 
NOOPO=0 
WRCHK=B1T1 
GSTAT=BIT2 
SEEK=BIT2'BIT1 
ROHOR=B1T3 
WRITE=BIT3'BIT1 
READ=BIT3'BIT2 
RONHD=BIT3'BITZ2'!BIT1 
GODRVR=B1T1!B1T7 
DRST=B1T3 

pte ee 


DAHS=B1T4 


DRIVE READY (RLCS) 

+ INTERRUPT ENABLE (RLCS) 
7RL11 ERROR (RLCS) 

7RLO1 ORIVE ERROR (RLCS) 
OPERATION INCOMPLETE (RLCS) 
s+ CONTROLLER READY (RLCS) 


+EXTENDED ADDRESS BIT 17 (RLCS) 
EXTENDED ADDRESS BIT 16 (RLCS) 


+NON-EXISTANT MEMORY (RLCS) 
+DRIVE SELECT O (RLCS) 
DRIVE SELECT 1 (RLCS) 
+DRIVE SELECT 2 (RLCS) 
DRIVE SELECT 3 (RLCS) 

; FUNCT 1ON-NOOP (0) 

7WRITE CHECK FUNCTION 

+GET STATUS FUNCTION 

+ SEEK FUNCTION 

READ HEADER FUNCTION 
;WRITE DATA FUNCTION 

READ DATA FUNCTION 

READ W/O HEADER VERIFICATION 
>CRDY AND DRDY 

DRIVE RESET (RLOA) 

+GET STATUS BIT (RLDA) 
*MARKER BIT (RLDA) 

+SiGN BIT (RLDOA) 

+HEAD SELECT IN READ HEADER 
;HEAD SELECT IN STATUS BACK 
;HEAD SELECT IN SEEK 


SEQ 0025 





OUTERR MACY11 30(104%6) O3-NOV-77 10:02 PAGE 83-3 


DZRLER. Pil O3-NOV-77 09: 54 SEQ 0026 

or + OFFSET FOR HARDWARE P-TABLE 
2876 000000 CSR=0 
2877 000002 VECT=2 
2878 000004 PRIOR=4 
2879 000006 DRBT=6 
2880 000010 CNT=10 
2881 
43 OFFSET FOR SOFTWARE P-TABLE 
2884 000000 DLT=0 
2885 000002 ELT=2 
2886 ooco04 SIZE=4 - 
2887 000006 DMPCK=6 
2888 000010 DLMNT=10 x 
2889 
2890 002112 ENOMOD 
2891 002112 BGNMOD GLBDAT 
2892 
2893 . SBTTL GLOBAL DATA 
2894 
2895 002112 000000 CHECK: .WORD 0 
2896 002114 000000 T.CRC: .WORD O 
2897 002116 000000 WHY: WORD OQ 
2898 002120 000000 COCNT WORD 0 
2899 002122 000004 ERRVEC: .WORD ~4 
2900 002124 000000 DRIVE: .WORD 0 

1 002126 000000 UUT -WORD 0 
2902 002130 000000 UNITST: .WORD OQ 
2903 002132 000000 TRPFLG: .WORD 0 

002134 000000 INTFLG: .WORD 0 + INTERRUPT OCCURANCE FLAG 
2905 002136 000000 LOCSR: .WORD 0 +LOCATION TO FORM RLCS 
002140 000077 SECMSK: .WORD 77 +MASK OUT SECTOR 

2907 002142 120001 XPOLY: .WORD 120001 +POLYNOMIAL FOR CRC 16 
2908 002144 000000 BCCFBK: .WORD O +LOCATION USED BY “SIMBCC" 
2909 002146 000000 CALBCC: .WORD 0 + LOCATION USED BY “SIMBCC” 
2910 002150 000090 TMPO .WORD QO 
2911 002152 000000 TMP 1 -WORD O 
2912 002154 000000 TMP2 -WORD OQ 
2913 002156 000000 GODAT: -.WORD 0 
2914 002160 000000 BODAT: .WORD OQ 
2915 002162 TEMP2: .WORD O +LOCATION USED BY “SIMBCC” 
2916 002164 000000 TEMP3: .WORD O +LOCATION USED BY "SIMBCC" 
2917 002166 000000 TEMPY: .WORD O +LOCATION USED BY “SIMBCC” 
2918 002170 000000 FIRST: .WORD O +FIRST SECTOR READ 
2919 002172 177700 CYLMSK: .WORD 177700 *MASK CYLINDER AND HEAD SELECT 
2920 002174 000050 MXSEC1: .WORD 4d. +MAX SECTOR ADDRESS +1 
2921 002176 000047 MAXSEC: .WORD 39. +MAX SECTOR ADDRESS 
2922 002200 9000000 DWORD: .WORD 0 DIFFERENCE WORD (SEEK) 
2923 002202 077600 MAXCYL: .WORD 77600 ;MAXIMUM CYLINDER ADDRESS 
2924 002204 000000 SVHD: .WORD O + SAVE CURRENT HEAD SELECT 
2925 22 000000 B. CS: WORD 0 CS - BEFORE OPERATION 
2926 002210 000000 B. BA WORD O BA - BEFORE OPERATION 
2927 002212 000000 B. DA WORD QO DA - BEFORE OPERATION 
2928 002214 000000 B.MP: .WORD 9Q MP - BEFORE OPERATION 
2929 002216 000000 E.cS: .WORD 0 CS - AT OCCURANCE OF EPROR 








OUTERR MACY11 30(10%6) O3-NOV-77 10:02 PAGE 83-4 
DZRLEA. P11 O3-NOV-77 09: 54 GLOBAL DATA SEQ 0027 


2930 002220 000000 E.BA: .WORD OQ ;BA - AT OCCURANCE OF ERROR 
2931 002222 000000 E.DA: .WORD O DA - AT OCCURANCE OF ERROR 
2932 002224 000000 .WORD 0 ;MP - AT OCCURANCE OF ERROR 
2933 002226 0000 E.MP1: .WORD O 
2934 002230 000000 E.MP2: .WORD 0 
2935 002232 000000 RLCS .WORD 0 
2936 002234 000000 RLBA .WORD 0 
2937 002236 000000 RLDA .-WORD QO 
2938 002240 000000 RLMP .WORD OO 
2939 002242 000000 BCSR .WORD 0 CSR FROM P TABLE 
2940 002244 000000 BVEC .WORD QO VECTOR FROM P TABLE 
2941 002246 000000 BPRIOR: .WORD 0 *+BR LEVEVL FROM P TABLE 
2942 002250 o0oCc000 FNDFNC: .WORD QO 
2943 002252 000000 XMEM .WORD QO 
2944 002254 0000 TRYFNC: .WORD 0 ; 
2945 002256 000000 ERFLG: .WORD 0 
2946 002260 000000 ERRLMT: .WORD O ;PRESENT ERROR COUNT 
2947 002262 001212 LOPIMX: .WORD 650 
2948 002264 000233 LOPIMN: .WORD 155 
2949 2 000620 UOPIMX: .WORD 400 
2950 002270 000240 UOPIMN: .WORD 160 
2951 002272 000000 OP IMN WORD O 
2952 002274 000000 OP IMX WORD O 
2953 002276 000000 PWRFLG: .WORD 0 
2954 002300 000000 T. CNTLR: WORD 0 
2955 002302 000000 DERFLG: .WORD 0 
2956 
2957 
2958 .SBTTL LIST TO CHECK HEADER COMPARE LOGIC 
2959 002304 000000 HORTAB. .WORD 0 ;WALK 1 
2960 002306 000001 .WORD BITO 
2961 002310 000002 WORD BITI1 
2962 002312 000004 WORD BIT2 
2963 002314 000010 WORD BIT3 
2964 002316 000020 WORD BIT4 
2965 002320 000040 WORD BITS 
002322 000100 WORD BIT6 
2967 002324 000200 WORD BIT? 
2968 002326 000400 WORD BITS 
2969 002330 001000 WORD BITS 
2970 002332 002000 WORD BIT10 
2971 004000 WORD BIT1I1 
2972 002336 010000 WORD BIT12 
2973 002340 020000 WORD BIT13 
2974 002342 040000 WORD BIT14 
2975 002344 03 WORD 3 +GROW 1 
2976 002346 000007 WORD 7? 
2977 002350 000017 WORD 17 
2978 002352 000037 WORD 37 
2979 002354 000137 WORD 137 
2980 002356 000337 WORD 337 
2981 002360 000737 WORD 737 
2982 002362 001737 WORD 1737 
2983 002364 003737 WORD 3737 
2984 002366 007737 WORD 7737 


2985 002370 017737 “WORD 17737 





OUTERR 


DZRLER. 


Pil 


MACY11 30(1046) 
O3-NOV-77 O09: 54 


002372 


002460 


002462 


037737 
077737 


000000 


000001 


017777 


03-NOV-77 


000002 
000020 
000200 
002000 
020000 


177776 


037777 


000004 
000040 
000400 
004000 
040000 


177775 


C 3 


10:02 PAGE 83-5 


LIST TO CHECK HEADER COMPARE LOGIC 

WORD 37737 
.WORD 77737 
.WORD 77736 +GROW O 
WORD 77734 

WORD 77730 

WORD 77720 

WORD 77700 

WORD 77600 

WORD 77400 

WORD 77000 

WORD 76000 

WORD 74000 

WORD 70000 

.WORD 60000 

.WORD = 77735 WALK O 
WORD § 77733 

WORD 77727 

WORD 77717 

WORD 77637 

WORD 77537 

WORD 77337 

WORD 76737 

WORD 75737 

WORD 73737 

.WORD 67737 

.WORD 57737 


.WORD 37737 
/HDREND: .WORD 0 


DATPAT: .WORD 1,2,4,10, 20,40, 100, 200, 400, 1000, 2000, 4000, 10000, 20000, 40000, 100000 


-WORD =: 177777, 177776. 177775, 177773, 177767. 177757, 177737. 177677 


177787 © 


176777 
167777 


177770 
177700 


174000 
140000 
000017 


000777 
007777 
000000 


~WORD »= 177577, 177377. 176777, 175777, 173777. 167777, 157777, 137777 


.WORD = 77777. 177774. 177770. 177760, 177740. 177700. 177600, 177400 


.WORD 177000, 176000, 174000, 170000, 160000, 140000. 3, 7,17, 37,77 


-WORD = 1177, 377. 777. 1777, 3777. 2777,17770. 37777,0 


.SBTTL BUFFER FOR READ/WRITE 


SEQ 0028 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-6 
DZRLEA.P11  O3-NOV-77 09: 54 BUFFER FOR READ/WRITE SEQ 0029 
3026 002652 002000 BUF: .BLKW 1024. 
3027 
3028 
3029 006652 ENDMOD 
3030 
3031 .SBTTL GLOBAL TEXT 
3032 006652 BGNMOD GLBTXT 


3036 006652 047516 O41440 047117 NORES: .ASCIZ /NO CONTROLLER/ 
3037 006670 047516 042040 O44522 NORDY: .ASCIZ /NO DRIVE/ 

3038 006701 103 035123 OOOO4O ARLCS: .ASCIZ /CS: / 

3039 006706 O41040 035101 OOO04O ARLBA: .ASCIZ / BA: / 

3040 006714 042040 035101 OO0040 ARLDA: .ASCIZ / DA: 7 


Pe 7m: 7 
3042 006730 042502 047506 042522 BEREG: .ASCIZ /BEFORE COMMAND: 7 
3043 006751 124 046511 020105 AFREG: .ASCIZ /TIME OF ERROR: 7 
3044 006772 O47503 052116 047522 CRTIM: .ASCIZ /CONTROLLER TIMED OUT/ 
3045 007017 104 044522 042526 ODRTIN: .ASCIZ fy thy READY TIMED OUT/ 
: / 


1 LF: ‘ 
3054 007113 015 000012 MSCRLF: .ASCIZ <15><12> 
3055 007116 O41440 046517 000120 COMP: .ASCIZ 7 COMP 
3056 007124 947506 041522 042105 OPIERR: .ASCIZ /FORCED OPI(GET STATUS) CAUSED OTHER ERRORS/ 
3057 007177 116 047517 020120 NOPMES: .ASCIZ /NOOP OPERATION-FLAG MODE/ 
3058 007230 047516 050117 O4%7440 NOPINT: .ASCIZ /NOOP OPERATION-INTR. MODE/ 
3059 007262 051127 052111 020105 WCKMES: .ASCIZ /WRITE CHECK OPERATION-FLAG MODE/ 
3060 007322 051127 052111 020105 WCKINT: .ASCIZ /WRITE CHECK OPERATION-INTR. MODE/ 
3061 007363 122 O4O0S50S5 020104 RHDMES: .ASCIZ /READ HEADER OPERATION-FLAG MODE/ 
3062 007423 122 O40505 020104 RHDINT: .ASCIZ /READ HEADER OPERATION-INTR. MODE/ 
3063 007464 042523 O4SS5O0S5 O47440 SEKMES: .ASCIZ /SEEK OPERATION-FLAG MODE/ 
3064 007515 123 042505 020113 SEKINT: .ASCIZ /SEEK OPERATION-INTR. MODE/ 
3065 007547 107 052105 051440 GSTMES: .ASCIZ /GET STATUS OPERATION-FLAG MODE/ 
3066 007606 042507 020124 052123 GSTINT: .ASCIZ /GET STATUS OPERATION-INTR MODE/ 
3067 007645 122 O40505 020104 RODDMES: .ASCIZ /READ OPERATION-FLAG MODE/ 
3068 007676 042522 042101 O4744O0 RDDINT: .ASCIZ /READ OPERATION-INTR MODE/ 
3069 007727 127 O44522 042524 WRTMES: .ASCIZ /WRITE OPERATION-FLAG MODE/ 
3070 007761 127 O44S22 042524 WRTINT: .ASCIZ /WRITE OPERATION-INTR MODE/ 
3071 010013 122 O40505 020104 RDONMES: .ASCIZ “%READ W/O HEADER - FLAG MODE% 
3072 010047 122 040505 020104 RODNINT: .ASCIZ “READ W/O HEADER - INTR MODEX% 
3073 010103 103 047101 052047 SKHOME: .ASCIZ /CAN'T SEEK TC TRACK O07 
3074 010131 127 044522 042524 WRLOCK: .ASCIZ /WRITE LOCK ERROR/ 


3075 010152 046122 051503 O41440 EMI: .ASCIZ /RLCS CONTAINED FOLLOWING ERROR(S): 7 

3076 010217 900170 Em100: .BLKB 120. 

3077 010407 116 020117 047111 EMS: .ASCIZ /NO INTERRUPT ON READ OPERATION/ 

3078 010446 042522 042101 O47440 ENS: .ASCIZ READ OPERATION DID NOT WRITE MEMORY/ 

3079 010512 046122 040502 O42040 Ene: .ASCIZ /RLBA DID NOT INCREMENT PROPERLY DURING READ/ 


3080 010566 042523 052103 051117 EN?: .ASCIZ SECTOR DID NOT INCREMENT PROPERLY AFTER READ/ 
3081 010643 110 O4O50S5 042504 EM10: .ASCIZ /HEADER NOT FOUND COULD NOT BE FORCED/ 

3082 010710 051127 047117 020107 Enii: .ASCIZ /WRONG CYLINDER ON SEEK/ 

3083 010737 110 O40505 042504 EM12:  .ASCIZ /HEADER NOT FOUND WOULD NOT SET/ 

3084 010776 051104 053111 020105 EM13:  .ASCIZ /DRIVE READY WOULD NOT SET/ 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-7 
DZRLER. P11 O3-NOV-77 09: 54 GLOBAL TEXT SEQ 0030 


3085 011030 O44504 045523 ONO44O EM14: .ASCIZ /OISK ADDRESS INCORRECT aA: MULTIPLE SECTOR READ/ 
3086 011112 O51'°* 053111 020105 ENM16: .ASCIZ /ORIVE ERROR ON WRITE OPERA hs 
3087 011151 ' » 020117 O47111 EMI?: ASCIZ /NO INTERRUPT ON WRITE OPERATION/ 
3088 011211 122 041114 020101 EN20 ASCIZ /RLBA DID NOT INCREMENT PROPERLY DURING WRITE/ 
3089 011266 042523 052103 051117 EN21 ASCIZ /SECTOR DID NOT INCREMENT PROPERLY AFTER WRITE/ 
3090 011344 O44504 045523 O40O44O EN2Z2 ASCIZ /DISK ADDRESS (RLDA) INCORRECT “ys + pig = WRITE/ 
3091 011436 042110 020122 047516 EN23 ASCIZ /HDR NOT FND COULD NOT BE FORCED AT END OF TRACK/ 
3092 011516 047516 026516 054105 EN24: .ASCIZ /NON-EXISTANT MEMORY ERROR COULD NOT BE FORCED/ 
ity 011574 O40504 O40524 O41440 EM25:  .ASCIZ DATA COMPARISON ERROR - READ/WRITE ERROR% 
3095 011645 127 044522 042524 EN26: .ASCIZ /WRITE OPERATION MODIFIED MEMORY/ 
3096 011705 105 051122 051117 EM27: .ASCIZ /ERROR ON PARTIAL SECTOR WRITE - ZERO FILL CHECK/ 
3097 011765 122 041114 020101 EM30: .ASCIZ /RLBA DID NOT INCREMENT PROPERLY/ 
3098 012025 02 020101 O44S02 EM31: .ASCIZ /BA BIT 16 DID NOT SET ON INCREMENT/ 
3099 012070 O40502 O41040 052111 EN32 ASCIZ /BA BIT 17 SET ON BAI6 INCREMENT TEST/ 
3100 012135 041114 020101 EN33 ASCIZ /RLBA DID NOT INCREMENT WITH BA16/ 
3101 012176 O40502 O41040 052111 EN34 ASCIZ /BA BIT 17 DID NOT SET ON INCREMENT/ 
3102 012241 020101 O44502 EN35 ASCIZ /BA BIT 16 DID NOT CLEAR ON INCREMENT/ 
3103 012306 046122 O40502 O42040 EN36: .ASCIZ /RLBA DID NOT INCREMENT WITH BAI7/ 
3104 012347 122 O40505 024104 EN4O: .ASCIZ /READ(FUNCTION 7) DID NOT INTERRUPT/ 
3105 012412 042522 042101 O43050 EM41 ASCIZ /READ(FUNCTION 7) ERROR - BAD DATA/ 
3106 012454 042522 042101 O43050 EN42 ASCIZ /READCFUNCTION 7) ERROR AT END OF TRACK/ 
3107 012523 116 020117 O47111 EM43 ASCIZ /NO INTERRUPT WITH HOR NT FND FORCED/ 
3108 012567 116 020117 047111 EN44:  .ASCIZ /NO INTERRUPT WITH NXM FORCED/ 
3109 012624 051105 047522 020122 EN4YS:  .ASCIZ ERROR ON BIT BANG OF SILO% 
3110 012656 044523 047514 O47440 EM47: .ASCIZ /SILO OPERATION FAILURE/ 
3111 012705 110 O40505 042504 ENSO: .ASCIZ /HEADER COMPARE FAILURE - SECTOR/ 
3112 012745 127 044522 042524 EN51: .ASCIZ /WRITE NPR CAUSED BUS TRAP/ 
3113 012777 122 O4O505 020104 EMS52: .ASCIZ /READ NPR CAUSED BUS TRAP/ 
3114 013030 042522 042101 O53440 EMSS: -.ASCIZ READ W/O HOR CMP OPERATION DID NOT WRITE MEMORY? 
3115 013110 046122 040502 O42040 ENS3 ASCIZ ?RLBA DID NOT INCREMENT PROPERLY DURING READ W/O HOR CMP? 
3116 013200 046122 O40504 042040 ENS4 ASCIZ ?RLDA DID NOT INCREMENT AFTER READ W/O HDR CMP? 
3117 013256 050117 020111 O44524 ENMS6: .ASCIZ /OPI TIMING ERROR/ 
3118 013277 127 044522 042524 EMS7: .ASCIZ /WRITE CHECK NPR CAUSED BUS TRAP/ 
3119 013337 127 044522 042524 EM60: .ASCIZ /WRITE CHECK DID NOT INTERRUPT/ 
3120 013375 122 041114 020101 EM61: .ASCIZ /RLBA DID NOT INCREMENT PROPERLY DURING WRCHK/ 
3121 013452 046122 O4O504 042040 EN62: .ASCIZ /RLOA DID NOT INCREMENT PROPERLY DURING WRCHK/ 
3122 013527 122 042114 020101 EM63: .ASCIZ /RLDA DID NOT INCREMENT PROPERLY AFTER A MULTIPLE SECTOR WRITE CHK/ 
3123 013631 127 044522 042524 EM64: .ASCIZ /WRITE CHECK OF PARTIAL SECTOR WRITE FAILURE/ 
3124 013705 103 047101 O47040 ENM65: .ASCIZ /CAN NOT FORCE DCK ON WRITE CHECK/ 
3125 013746 O¥0503 020116 047516 EM66: .ASCIZ /CAN NOT FORCE INTERRUPT WITH DCK ON WRCHK/ 
op 014020 051127 052111 020105 EN70: .ASCIZ /WRITE CHECK FRILURE/ 
31 
3128 . EVEN 
3129 
3130 
3134 014044 ENDMOD 
3135 
oe 014044 BGNMOD GLBERR 
13 
3138 .SBTTL GLOBAL ERRORS 
3139 014044 BGNMSG ERRO 
3140 
3141 014044 004737 015056 JSR PC, LINE1 
3142 014050 004737 015112 JSR PC. LINE2 


OUTERR 
DZRLEA. 


er wl gg 24 


Pi 03-NOV 


014054 


014060 
014060 
014060 


014062 
014062 


014066 


014072 
014072 
014072 


014074 


014074 
014100 
014100 
014104 
014110 
014114 
014120 
014122 
014124 


014130 
014134 
014134 
014134 
014136 


014136 
014142 


014176 


014202 


014206 
014206 


004537 


104023 


004737 


004537 


104023 


004737 


013746 
013746 
012746 
012746 
010600 
104014 
062706 


004537 


104023 


004737 
004737 


013746 
013746 
013746 
012746 
012746 
010600 
104014 
062706 


004537 


03-NOV-77 
09: 54 


017724 


015055 


017724 


015056 


002160 
002156 
015533 
o0c003 


000010 


017724 


015056 
015112 


002156 
002160 
002150 
015571 
000004 


000012 


017724 


10:02 PAGE 83-8 
GLOBAL ERRORS 


L 10000: 


BGNMSG 


L10001: 


BGNMSG 


L 10002: 


BGNMSG 


L10003: 


JSR 
ENOMSG 
ENT 
ERR1 
JSR 


JSR 
ENOMSG 


JSR 
ENOMSG 
EMT 


JSR 
ENDMSG 


RS, CKERLT ; INCREMENT ERROR AND CHECK LIMIT 
CSMSG 


PC.LINE1 


RS, CKERLT ; INCREMENT ERROR AND CHECK LIMIT 
CSNSG 


PC, LINE1 

#FRNT4, GODAT, BODAT 
BODAT. -(SP) 
GDDAT. - (SP) 
#FRMTY, -(SP) 

#3, -(SP) 

CSPNTB 

#10. SP 


RS, CKERLT ; INCREMENT ERROR AND CHECK LIMIT 
CSMSG 


PC,LINE1 

PC, LINE2 

ee ae GDDAT 
GDDAT. -(SP) 

BDDAT. -(SP) 

TMPO. - (SP) 

#FRNTS, - (SP) 

#4, -(SP) 


#12, SP 


RS, CKERLT + INCREMENT ERROR AND CHECK LIMIT 


SEQ 0031 


OUTERR 


DZRLEA. 


Pil 


MACY11 30(1046) 


014206 
014210 


014210 
014214 
014220 
014220 
014224 
014230 
014234 
014240 
014242 
014244 


104023 


004737 
004737 


013746 
013746 
012746 
012746 
010600 
104014 
062706 


014250 


014254 
014254 
014254 


014256 


014256 
014262 
014262 
014266 
014272 
014276 
014300 
014302 


004537 


104023 


004737 


013746 
012746 
012746 
010600 
104014 
062706 


014306 004537 
014312 
014312 
014312 


014314 
014314 


014320 
014324 


104023 


004737 
004737 
004737 


014330 


014330 012746 


014354 


03-NOV-77 


03-NOV-77 
09: 54 


015056 
015112 


002160 
002156 


015533 
000003 


000010 


017724 


015056 
020236 


015526 
000002 


000006 


017724 


015056 
015334 
015112 


016467 
000001 


000004 
017724 


10:02 PAGE 83-9 
GLOBAL ERRORS 


EMT 


BGNMSG ERR4 


JSR 
ENOMSG 
ENT 


L 10004: 


BGNMSG 


JSR 
ENDMSG 
ENT 
ERR6 


L10005: 


BGNMSG 


ENDMSG 


CSMSG 


PC.LINE1 
PC, LINE2 
A a * a ct 


#10. SP 


RS, CKERLT 
C$MSG 


PC, LINE1 
#FRMNT3,RESTMS 
RESTMS. - (SP) 
#FRMTS. -(SP) 


RS, CKERLT 


CSMSG 


PC, LINE1 
PC, LINES 
PC, LINEZ 


SFRNTIO 
#FRNTII, - (SP) 
) 


#4, SP 
RS, CKERLT 


; INCREMENT ERROR AND CHECK LIMIT 


> INCREMENT ERROR AND CHECK LIMIT 


> INCREMENT ERROR AND CHECK LIMIT 


SEQ 0032 


OUTERR MACY11 
DZRLEA. P11 


(3) 014354 
(3) 014354 


3212 014356 


3216 014356 


3218 014362 
(3) 014362 
(3) 014362 


3222 014364 


3224 014364 
3225 014370 
3226 014374 
(10) 014374 
(9) 014400 
(8) 014404 
(7) 014410 
(6) O14414 
(3) 014420 
(4) 014422 
(4) 014424 


3229 014430 


3231 014434 
(3) 014434 
(3) 014434 


3233 014436 


3235 014436 
3236 014442 
3237 014446 
(9) 014446 
(8) 014450 
(7) 014454 
(6) 014460 
(3) 014464 
(4) 014466 
(4) 014470 


3240 014474 
3242 014500 


(3) 014500 
(3) 014500 


30(1046) 


— 


O03-NOV-77 09:5 


104023 


004537 


104023 


004737 
004737 


013746 
013746 
013746 
012746 
012746 
010600 
104014 
062706 


004537 


104023 


004737 
004737 


010246 


004537 


104023 


017724 


01505¢ 
015112 


002160 
002156 
002152 


015642 
000004 


000012 


017724 


015056 
015112 


002150 
015533 
000003 


000010 


017724 


10:02 PAGE 83-10 
GLOBAL ERRORS 


L10006: 
ENT 


BGNNSG 


L10007: 


BGNMSG 


L10010: 


BGNMSG 


L10011: 


ERR? 


JSR 
ENOMSG 
ENT 


JSR 
ENDMSG 
EMT 
ERR 


JSR 
ENDMSG 
ENT 


CSMSG 


RS, CKERLT 


CS$MSG 


PC,LINE1 

PC, LINEZ 
#FRMTG, THP1, GODAT, BODAT 
BODAT, - (SP) 

GDDAT, - (SP) 

#FRMNT6. -(SP) 

#4, -(SP) 

SP. RO 

CSPNTB 

#12, SP 


RS, CKERLT 
CSMSG 


PC, LINE1 
PC,LINEZ 
SFRNTY, THPO, RZ 


R2, ype 
TMPO, -/(SP) 
#FRMTY, - (SP) 


#10. SP 


RS, CKERLT 


CSNSG 


+; INCREMENT ERROR AND CHECK LIMIT 


; INCREMENT ERROR AND CHECK LIMIT 


; INCREMENT ERROR AND CHECK LIMIT 


SEQ 0033 





























014502 


014502 
014506 
014512 
014512 
014516 
014522 
014526 
014532 
014536 
014540 
014542 


014546 


014552 
014552 
014552 


014554 


014554 
014560 
014564 
014564 
014570 
014574 
014600 
014604 
014610 
014612 
014614 


014620 
014624 
014624 
014624 
014626 


014626 
014632 


014670 





OUTERR MACY11 30(104%6) 


DZRLEA. P11 O3-NOV-77 


004 737 
004737 


013746 


062706 


004537 


104023 


004737 
004737 


013746 
013746 
013746 
012746 
012746 
010600 
104014 
062706 


004537 


104023 


004737 
004737 


013746 





09:5 





015056 
015112 


002160 
002156 
002152 
015717 
000004 


000012 


017724 


015056 
015112 


002160 
002156 
002150 
015771 
000004 


000012 


017724 


015056 
015112 


002160 
002156 


002152 


016112 
000005 


000014 


a -ypeieed 


10:02 PAGE 83-11 


GLOBAL ERRORS 


BGNNSG 


L10012: 


BGNMSG 


L10013: 


BGNMSG 


ERR10 





JSR 
ENDMSG 
EMT 
ERR11 


JSR 
ENDNSG 
ENT 
ERR12 
JSR 





SEQ 0034 












PC.LINE1 
PC, LINEZ 
#FRMT7, THP1, GDDAT, BDDAT 
BODAT. -(SP) 








#FRMT7, -(SP) 
#4, -(SP) 3 
SP,RO 
CSPNTB 
#12. SP 











RS. CKERLT + INCREMENT ERROR AND CHECK LIMIT 


C$MSG 


PC, LINE1 

PC, LINEZ 
#FRNTS, THPO, GODAT. BODAT 
BODAT, -(SP) 
GDDAT, -(SP) 
TMFO, - (SP) 
#FRNTS, -(SP) 
#4, -(SP) 

SP, RO 

CSPNTB 

#12. SP 


RS, CKERLT + INCREMENT ERROR AND CHECK LIMIT 


C$MSG 


PC. LINE1 

PC.LINEZ 

SFRNTI. THP1,R3,GDDAT. BODAT 
BODAT, -(SP) 

GDDAT. - (SP) 


#14, SP 


OUTERR 
DZRLEA. 


MACY11 30(1046) 


Pil 


014674 


014700 
014700 
014700 


014702 


014702 
014706 
014706 
014712 
014716 
014722 
014726 
014732 
014734 
014736 


014742 


014746 
014746 
014746 


014750 


014750 
014754 
014760 
014760 
014764 
014770 
014774 
015000 
015002 
015004 


015010 
015014 
015014 
015014 
015016 


015016 


015034 


O3-NOV-77 


004537 


104023 


004737 


012746 
013746 
013746 
012746 
012746 
010600 
104014 
062706 


004537 


104023 


004737 
004737 


012746 


062706 


004537 


104023 


004737 
004737 


010246 
012746 
012746 


03-NOV-77 
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017724 


015056 


002160 
002274 
002272 
016215 
000004 


000012 


017724 


015056 
015112 


002652 
002152 


016041 
000003 


000010 


017724 


015056 
015112 


016523 
000002 


10:02 PAGE 83-12 
GLOBAL ERRORS 


L10014: 


BGNMSG 


L10015: 


BGN'SG 


L10016: 


BGNMSG 


JSR 
ENOMSG 
ENT 
ERR13 


JSR 
ENDOMSG 
EMT 
ERR14 


JSR 
ENDMSG 
EMT 
ERR15 


R5, CKERLT ; INCREMENT ERROR AND CHECK LIMIT 
CSMSG 


PC. LINE1 

SFRNT1O, OP IMN, OP IMX, BODAT 
BODAT, -(SP) 

OP IMX, - (SP) 

OP IMN, - (SP) 

#FRNTIO, -(SP) 

#4,-(SP) 

SP.RO 

CSPNTB 

#12, SP 


RS, CKERLT ; INCREMENT ERROR AND CHECK LIMIT 
CSMSG 


PC, LINE1 

PC, LINEZ 
#FRNT14., TMP1, BUF 
#BUF,-(SP) 
TMP1,-(SP) 
#FRNT1I4, -(SP) 

#3, - (SP) 

SP. RO 

CSPNTB 

#10. SP 


RS, CKERLT ; INCREMENT ERROR AND CHECK LIMIT 
C$MSG 


PC, LINE1 

PC, LINE2 
#FRNT1IS,R2 
R2,-(SP) 
#FRNT1IS, -(SP) 
#2, - (SP) 


SEQ 0035 


OUTERR MACY11 3011046) 


O03-NOV-77 


DZRLEA. P11 O03-NOV-77 09: 54 


(3) 015040 
(4) 015042 
(4) 015044 
ety 015050 


3305 015054 
(3) 015054 
(3) 015054 


6 
3307 015056 
(9) 015056 


3308 015110 
3310 015112 


(12) 015112 
(11) 015116 


(12) 015266 
(11) 015272 


010600 
104014 
062706 
004537 


104023 


005046 
153716 
012746 
012746 
012746 
010600 
104014 
062706 
000207 


013746 


013746 
012746 
013746 
012746 
012746 
012746 
010600 
104014 
062706 


013746 
012746 


013746 
013746 
013746 


000006 
017724 


002125 
002232 
015406 
000003 


000010 


002210 
006706 
002206 
006701 
00€730 
015445 
000006 


000016 


002214 
006722 
002212 
006714 
015464 
000005 


000014 


002220 
006706 
002216 
006701 
006751 
015445 
000006 


000016 
002230 


002226 
002224 


10:02 PAGE 83-13 
GLOBAL ERRORS 


L10017: 


LINE1: 


L INE2: 


ENDMSG 
ENT 
PRINTB 
C 


SP. RO 
CSPNTB 
#6. SP 

RS, CKERLT 


CSMSG 
#FRMT1,RLCS, <B. DRIVE+1> 
- (SP) 

DRIVE+1, (SP) 

RLCS, -(SP) 

#FRMT1,-(SP) 

#3,-(SP) 

SP.RO 

CSPNTB 


#10, SP 
PC 


#FRMTZ, #BEREG, #ARLCS.B. CS. SARLBA. B. BA 
8. BA, - (SP) 

#ARLBA, -(SP) 

8. CS, -(SP) 

#ARLCS, -(SP) 

#BEREG, -(SP) 

#FRNTZ, -(SP) 

#6, -(SP) 


#16, SP 
#FRMTZA, #ARLDA. B. DA. RARLMP,B MP 
B. MP, -(SP) 


#16. SP 
#FRMNT2B. SARLDOA. E. DA. RARLMP.E. MP.E. MP1,E. MP2 
E. MP2. -(SP) 


-E. MP1, -(SP) 


E. MP. - (SP) 


SEQ 0036 


OUTERR MACY11 30(1046) 
DZRLEA. P11 


015276 


015332 


015334 
015334 
015340 
015344 
015350 
015352 
015354 


016472 
016523 


016550 
016550 


016550 
016550 


012746 
013746 


000207 


012746 
012746 
012746 
010600 
104014 
062706 


012746 
012746 
012746 
010600 
104014 
062706 
000207 


040445 


000005 


03-NOV-77 
O3-NOV-77 09: 54 


006722 
002222 
006714 
015477 
000007 


000020 


010152 
015526 
000002 


000006 
010217 


015526 
000002 


000006 


047503 


022516 


052116 


044522 


O4¥O44S 
050101 


10:02 PAGE 83-14 


GLOBAL ERRORS 


MOV 
Mov 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
RTS 
LINES: PRINTB 
MoV 
MoV 
MoV 
MoV 
ENT 
ADD 
PRINTB 
MOV 
MOV 
MOV 
MoV 
ENT 
ADD 
RTS 
FRMT1: ASCIZ 
FRNT2: ASCIZ 
FRMT2A: . ASCIZ 
FRMT2B: . ASCIZ 
FRNT3: ASCIZ 
FRMT4: ASC1Z 
FRMTS: ASC IZ 
FRMT6: ASCIZ 
FRMT?: ASCIZ 
FRNTB: ASCIZ 
FRNTI4: . ASCIZ 
FRNT9: .ASCIZ 
FRNT10O: . ASCII 
. ASCIZ 
FRNT11: . ASCIZ 
FRNT98: . ASCII 
FRMT99: . ASCIZ 
FRMT13: . ASCIZ 
FRMNTI5: . ASCIZ 
. EVEN 
ENDMOD 


BGNMOD HPTCODE 


BGNHW 
. WORD 


#ARLMP, -(SP) 
E. DA, -(SP) 

#ARLDA, - (SP) 
#FRMTZB, -(SP) 


#FRNTS, #EM1 
#EM1,-(SP) 
#FRMT3, -(SP) 
#2, - (SP) 
SP,.RO 

CSPNTB 

#6, SP 

#FRMT3, #EN100 


#EM100, -(SP) 
#FRMT3, -(SP) 


/“ZACONTROLLER: 
7%1%06%T%067 


7%T%06%TXOO%A %06%A %06/ 


ZANET/ 


72NZREXP'D: %06%A REC'D: %06%N/ 

7%NZALAST: %06%A PRES: %06%A EXP'D: %06%N/ 
72N%ABUS ADR: %06%A EXP'D: %06%A REC'D: %06%N/ 
742NZAWORD: %D3%A EXP'D: %06%A REC'D: 
7%2NZADH: %06%A REC'D: %06%A EXP'D: %06%N/ 
ZZ2NZAWORDS WRITTEN: %D3%A BUS ADDR: %06%N/ 


%06%A DRIVE: %017 
ZA2NZT%TX%06%T 2067 


SEQ 0037 


7%NXAWORDS WRITTEN: %D3%A BUS ADDR: %06%A EXP'D: %06%A REC'D: %06%N/ 


7%2NXARANGE %D3%A - %D3%A MILLISECONDS WAS %~D6%N/ 
/ZAMAXIMUM TIMEOUT OF PROGRAM 1S 3 SECONDS%N/ 
7ZNZARERROR LIMIT EXCEEDED - DROPPED“N/ 

/“ZADRIVE DID NOT RECOVER FROM POWER FAILURE/ 


72N/ 


ZENZTXA - WILL NOT TEST%N/ 
Z4NZAPATTERN WAS: %06/ 


L10020-LSHW/2 


OUTERR alas wel iy “ee 10:02 PAGE 83-15 


DZRLEA. P11 03-NOV-77 0 GLOBAL ERRORS SEQ 0038 
3355 016552 174400 .WORD 174400 + CSR 
3356 016554 000330 .WORD 330 ; VECTOR 
3357 016556 000240 .WORD 240 + PRIORITY 
3358 016560 000000 .WORD 0 ;DORIVE (BITS 8.9.10) 
oH 016562 000001 .WORD 1 FRLIi=1 RLVI1=0 
3361 016564 ENDHW 
(3) 016564 L10020: 

3362 

3363 016564 ENDMOD 

3364 

oe 016564 BGNMOD SPTCODE 

3367 016564 BGNSW 

asta 016564 000005 .WORD 110021-LS$SW/2 

3369 016566 000000 DROP: .WORD O 

3370 016570 000012 MERLMT: . WORD 10. 
3371 016572 OO0000 . T. SIZE: .WORD 0 

3372 016574 000000 T.OMP: .WORD 0 

eh 016576 CcO00000 ; T. LMT: .WORD O 

3375 016600 ENOSW 
(3) 016600 L10021: 

3376 

3377 016600 ENDMOD 

3378 

oo. 016600 BGNMOD DSPCODE 

3 

3381 016600 DISPATCH 47 
(4) 016600 000057 .WORD 47 
(6) 016602 021430 .WORD Ti 
(6) 016604 021700 .WORD 12 
(6) 016606 022044 .WORD T3 
(6) 016610 022174 .WORD T4 
(6) 016612 022330 WORD T5 
(6) 016614 022462 WORD T6 
(6) 016616 022620 WORD 17 
(6) 016620 023016 WORD T8 
(6) 016622 023320 WORD T9 
(6) 016624 023510 WORD T10 
(6) 016626 023706 WORD Ti1 
(6) 016630 024060 WORD T12 
(6) 016632 024256 WORD T13 
(6) 016634 024456 WORD Ti4 
(6) 016636 024626 WORD T15 
(6) 016640 024730 WORD T16 
(6) 016642 02 WORD T17 
(6) 016644 025250 WORD T18 
(6) 016646 025404 WORD T19 
(6) O 025536 WORD 120 
(6) 016652 025656 WORD 121 
(6) 016654 026036 WORD 122 
(6) 016656 026614 .WORD 123 
(6) 016660 027010 .WORD T24 


(6) 016662 027154 .WORD 125 


OUTERR 


DZRLEA. 


MACY11 
Pil 


016664 


016740 


016740 
016740 
016740 
016740 
016744 


016746 
016746 


017014 


30(1046) 
03-NOV-77 


027270 


037246 


012700 
104041 


012700 
104050 
103004 
013737 
000472 


012700 
104050 


103410 


012700 
104050 


103404 


012700 
104050 


103007 


03-NOV-77 
09: 54 


000340 


000034 


002014 


000037 


000035 


000040 


002276 


10:02 PAGE 83-16 


GLOBAL ERRORS 


. SBTTL 
BGNMOD 


NOPWR: 


.WORD 126 

.WORD 127 

-WORD 128 

-WORD 129 

.WORD T30 

-WORD T31 

.WORD 132 

-WORD T33 

.WORD = T34 

-WORD T35 

.WORD T36 

.WORD 137 

. WOR T38 

. WOR T39 

.WORD T4O 

-WORD T41 

.WORD T42 

.WORD T43 

.WORD = T44 

.WORD T4S 

.WORD T46 

.WORD = T4?7 

ENDMOD 

INITIALIZATION CODE 

_ INI TCODE 

BGNINIT 

SETPRI #PRI07 

MOV #PR107,R0 
ENT CSSPRI 

READEF #EF. PWR 

MoV #EF. PUR. RO 
EMT CSREFG 
BNCOMPLETE NOPWR 
BCC NOPUR 

MOV LSUNIT, PWRFLG 
BR CONT 

READEF #EF. RESTART 
MoV #EF. RESTART. RO 
ENT CSREFG 
BCOMPLETE START 
BCS START 

READEF #EF. NEW 

MoV #EF. NEW. RO 
ENT CSREFG 
BCOMPLETE START 
BCS START 

READEF #EF. START 
MOV #EF. START. RO 
ENT CSREF 
BNCOMPLETE CONT INUET 
BCC CONTINUE T 


SEQ 0039 


OUTERR 


DZRLER. 


Pil 


MACY11 wl 


03-NOV- 


017016 
017024 
017032 


017034 


017060 


017066 
017072 
017076 
017076 
017102 
017104 
017104 
017106 
017112 
017114 
017120 
017122 
017126 
017132 
017136 
017142 


017146 
017152 
617156 
017162 
017166 
017172 
017176 
017202 
017206 


017212 


017264 


013737 
012737 
000404 


012700 
104050 


103443 
005737 
001006 
012737 
013737 


005237 
005337 


013700 
104042 


103406 
005737 
001754 
005337 
000751 
012037 
012037 
012037 
012037 
012037 


005037 


010037 
005737 
001064 
005737 
001461 
005037 


012746 


005777 


03-NOV-77 
7 09: 54 


002014 002126 START: 


177777 002130 


000036 


002126 


177777 
002014 


002130 
002126 


002130 


002276 
002276 
002242 
002244 
002246 
002124 
002300 


002260 


002240 
002276 
016572 
002132 
000340 
021146 
002122 
000003 


000010 
162746 


002130 
002126 


10: a PAGE 83- 


17 
INITIALIZATION CODE 


MOV 
MOV 
BR 


CONT I NUE: 
MoV 


NXT: 


15: 


REST: 


25: 


CONT: 


LSUNIT, UUT 
#-1,UNITST 
NXT 


READEF #EF. CONTINUE 
#EF. CONTINUE, RO 


ENT CSREFG 
BCOMPLETE CONT 
8 CONT 


cs 

TST UUT 

BNE 1$ 

MoV #-1,UNITST 

7 MOV LSUNIT, UUT 
INC UNI TST 

DEC UUT 

GPHARD UNITST.RO 
MOV UNITST. RO 
EMT CSGPHRD 
BCOMPLETE 2$ 
BCS 2$ 

TST PWRFLG 

BEQ NXT 

DEC PWRFLG 

BR NXT 

MoV (RO)+, BCSR 
MoV (RO) +, BVEC 
MoV (RO)+, BPRIOR 
MOV (RO) +, DRIVE 
MOV (RO)+. T. CNTLR 
CLR ERRLMT 

MOV BCSR. RO 

MOV RO. RLCS 

ADD #2,R0 

MOV RO, RLBA 

ADD #2,R0 

MOV RO, RLDA 

ADD #2.R0 

Mov RO, RLMP 

TST PWRFLG 

BNE 5$ 

TST T. SIZE 

BEQ 5% 

CLR TRPFLG 
SETVEC ERRVEC. #TRPHAN, #340 
MOV #340, - (SP) 
MoV #TRPHAN, - (SP) 
MoV ERRVEC, -(SP) 
MoV #3. -(SP) 

ENT CSSVEC 

ADD #10, SP 

TST aRLCS 
CLRVEC ERRVEC 


+GET NUMBER OF UNITS 


—s WiTH ALL UNITS 


, 


+GET BUS ADDRESS 
GET VECTOR 

+GET PRIORITY 

GET DRIVE 

+GET CONTROLLER TYPE 


>; CREATE REGISTERS 


+ D0 WE WANT TO CHECK UNITS?? 


NO 
; CLEAR OUT TRAP INDICATOR 
+SETUP TO CATCH TIMEOUT 


ACCESS CONTROLLER 


SEQ 0040 


OUTERR 


DZRLER. 


Pil 


017264 


017310 
017316 
017324 
017322 
017334 
017342 
017342 
017346 
017352 
017356 
017360 
017362 
017366 


017370 
017374 
017376 
017404 
017412 
017416 
017416 
017422 
017424 
017432 
017434 
017436 


017440 
017440 


017514 


017520 
017526 


MACY11 30(1046) 
03-NOV-7 


013700 
104036 
005737 
001404 
012737 
000415 


012777 
053777 
032777 
001016 
012737 


013746 
012746 
012746 
010600 
104014 
062706 
000444 


005737 
001451 
012777 
053777 
012701 


012700 
104026 
032777 
001032 
005301 
001367 


012746 
012746 
010600 
104017 
062706 


012746 


013737 
013737 


002122 
002132 
006652 
000200 
002124 
000001 
006670 
002116 


016472 
000002 


000006 


002276 
000200 
002124 
o00c074 
000012 


000001 


016467 
000001 
000004 
016415 
000001 
000004 
015056 


002130 


017044 


002270 
002266 


03-NOV-77 
7 09: 54 


002116 


162714 
162706 
162700 


002116 


162626 
162620 


162600 


002272 END: 


002274 


10:02 PAGE 83-18 


INITIALIZATION CODE 


7$: 


55: 


33: 


6S: 


ERRVEC, RO 


7$ 
#NORES., WHY 
8$ 


#200. ARLCS 
DRIVE. @RLCS 
#1, 9RLCS 

55 


#NORDY. WHY 
#FRMT13, WHY 
WHY, - (SP) 
#FRMT13, -(SP) 


PURFLG 

END 

#200, aRLCS 
DRIVE, ARLCS 
#60. .R1 


#FRNT99 
#FRNTII, - (SP) 
#1,-(SP> 
SP,.RO 

CSPNTF 

#4, SP 
SFRNTIS 
#FRMTIB, -(SP) 
#1, - (SP) 


UOP I MN. OP INN 
UOP I MX, OP IMX 


+010 TRAP OCCUR?? 
+NO, CHECK OR!VE 


NOW CHECK DRIVE FOR READY 


; POWER UP 
NO 


SEQ 0041 


OUTERR 


DZRLER. 


Pil 


017534 


017600 


017604 
017604 
017604 


017606 
017606 
017606 


017606 
017606 
017612 
017616 
017622 
017626 
017630 
017634 
017642 


017644 
017652 


017676 


017700 
017700 
017700 


017702 


MACY11_ 30(1046) 
03-NOV-7 


005737 
001006 
013737 
013737 


012746 


062706 


104011 


012746 
012746 
013746 
012746 
104037 
062706 
032777 
001774 


042777 


013700 
104036 
005737 
001402 
005337 


013700 
104036 


104012 


O03-NOV-77 
7 09: 54 


002300 
002264 
002262 


000340 
017706 
002244 
000003 


000010 


000340 
021146 
002122 
oo00c? 
000010 
000200 
000100 


002244 
002276 
002276 
002122 


002272 
002274 


162370 


162360 


10:02 PAGE 83- 


19 
INITIALIZATION CODE 


L10022: 


BGNMOD 


28: 


L 10023: 


ENDINIT 
EMT 
ENDMOD 
CLNCODE 
BGNCLN 


SE TVEC 
MoV 


ENOCLN 
ENT 
ENDMOD 


1 
LOP IMN, OP IN 


T. CNTLR 7RLI 
$ 


LOP I MX, OP IMX 


to thd ae 
#340, -(SP) 

#INTSRV, -(SP) 

BVEC, -(SP) 

#3, -(SP) 

CSSVEC 

#10. SP 


CSINIT 


oy geet aman atin 
#340, (SP) 
#TRPHAN. - (SP) 
ERRVEC, -(SP) 

#3, -(SP) 

CSSVEC 


#10, SP 
#CRDY, ARLCS 
1$ 

® INTEN, ARLCS 


BVEC 
BVEC. RO 
CSCVEC 
PWRFLG 

2$ 

PWRFLG 
ERRVEC 
ERRVEC, RO 
CSCVEC 


CSCLEAN 


YES. "THEN KEEP LIMITS SET 


SEQ 0042 


OUTERR 


DZRLEA. 


Pil 


MACY11 30(1046) 
O03-NOV-77 


017702 
017702 
017702 


017704 
017704 
017704 


017706 


017706 


017706 
017706 


017712 
017712 
017712 


017714 
017720 
017720 
017722 


017724 
017726 
017726 
017730 
017730 


017732 
017736 
017740 
017744 
017752 


017754 


020010 


000240 


104055 


005237 


000002 


005237 


104021 
000002 


00024C 
104920 
103427 


005737 
001424 
005237 
023737 
002416 


012746 
012746 
010600 
104017 
062706 
004737 


013700 
104053 


104044 


O3-NOV-77 


09: 54 


002134 


002134 


016566 


002260 
002260 


016350 
000001 


000004 
015056 


002130 


016570 


10: * PAGE 83-2 


0 
Ni TIALIZATION CODE 


BGNMOD 


L10024: 


ENDMOD 
. SBTTL 
BGNMOD 
BGNSRV 


INTSRV: 


L10C25: 


DRPCODE 
BGNOU 

NOP 

ENDOU 

EMT C$DU 


GLOBAL SUBROUTINES 
GLBSUB 


INC INTFLG ;SET INTERRUPT OCCURANCE FLAG 
ENDSRV 


RTI 


;ROUTINE USED IN TIMING OPI 


TIMSRV: 


CKERLT: 


995: 


INC INTFLG 
ABORTWAIT 

EMT CSABRT 
RT! 


NOP 

INLOOP 

EMT CSINLP 
BCOMPLETE 99% 
BCS 99% 


TST DROP 

BEQ 995 

INC ERRLMT 

CMP ERRLMT. MERLNAT 
BLT 995 


PRINTF #FRMT11 
MoV #FRMNT11,-(SP) 


MoV SP. RO 
EMT CSPNTF 
ADD #4. SP 


INE 1 
DODU UNITST ;DROP THIS UNIT 


ENT CSDCLN 


SEQ 0043 


OUTERR 


DZRLEA. 


ag 


MACY11 30(1046) 


Pil 03-NOV-7 


020010 


020012 


020216 


000205 


005037 
032737 
001001 


004537 


03-NOV-77 
7 09: 54 


002114 
176000 


010217 
002216 
020550 
040u00 


002302 
020550 


020000 
020550 
002000 
020550 
004000 
020550 
010000 
020550 


004000 


002114 
020550 


010000 
020550 


002216 


002216 


002216 


002216 


002216 


002216 


002216 


002216 


10:02 PAGE 83-21 


GLOBAL SUBROUTINES 
RTS R5 


.SBTTL ROUTINE TO CHECK FOR CONTROLLER ERRORS 


j RXXKAAAAAAAAAAAAAAAAAA AAA AAA AAA AA AAA A AA AAA AAA AAA AAA AAA A AY 
#XTHIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM 
sKACCORDINGLY. IT WILL MERGE THE ERROR PRINTOUT WITH THE TEST 

+ *XERROR MESSAGE. 


;* 
; XROUTINE USES RO,R1 AND PICKS HEADER FROM R3 


re 
7 CALL JSR RS, CHERR + CHECK CNTLR FOR ERRORS 
eS 
+x 
CHERR: CLR T. CRC 
BIT #176000.E.CS ANY ERROR BITS SET? 
BNE 23 + YES, F IND OUT WHICH 
RTS RS NO EXIT 
2$: MOV #EM100,R1 ;GET START OF STRING 
TST E.cS ; 1S COMPOSITE ERROR SET?(BETTER BE) 
BPL 995 ;1T'S NOT SOMETHING 1S WRONG 
JSR R5, FIX YES, PUT “COMP” IN STRING 
COMP + "COMP" 
995: BIT #DERR.E.CS DRIVE ERROR SET? 
BEQ 3$ +NO, CONTINUE 
INC DERFLG 
JSR RS, FIX pet PUT “DRV" INTO STRING 
DEMES “DRV 
35: BIT #@NXM.E. CS NON-EXISTENT MEMORY ERROR? 
BEQ 4§ +NO, CONTINUE 
JSR RS. FIX +YES, PUT “NXM" INTO STRING 
NXMMES ;""NXM" 
4$: BIT #OP1,E.CS 71S OPI SET? 
BEQ 6% +NO, GO CHECK BITS 11 & 12 
SR RS, FIX +PUT “OPI" INTO STRING 
OP INES + "OPI" 
BIT #BIT11,E.CS ;HEADERCRC ERROR? 
BEQ 5$ NO. GO CHECK HEADER NOT FOUND 
JSR RS, FIX *GO PUT “HCRC" IN STRING 
HCRCMES ;"HCRC™ 
5S: BIT #B817T12,E.CS ; HEADER NOT FOUND? 
BEQ 8$ +NO, GO PUT “CRLF" IN STRING 
JSR RS. FIX *;PUT “HNF" IN STRING 
HNF MES ;“HNF" 
8$ ;PUT “CRLF” IN STRING 
6S: BIT #BiT11,.€.CS DATA CPC ERROR? 
BEQ 7$ NO, GO CHECK DATA LATE 
INC T. CRC 
JSR R5.F IX + PUT “DCK" IN STRING 
DOCKMES ;"DCK" 
7$: BIT #B1T12,E.CS ; DATA LATE ERROR? 
BEQ 8$ NO. GO PUT IN “CRLF™ 
JSR RS, FIX ;PUT “DLT” IN STRING 


SEQ 0044 


G 4 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-22 
DZRLEA. P11 03-NOV-77 09: 54 ROUTINE TO CHECK FOR CONTROLLER ERRORS SEQ 0045 
3612 020222 007104 DLTNES +“OLT" 
3613 020224 004537 020550 83: JSR RS, FIX PUT "CRLF" INTO STRING 
3614 020230 007113 MSCRLF "CRLF" 
3615 020232 004537 020550 JSR RS. FIX ; MOVE HEADER 
3616 020236 000000 RESTMS: .WORD 0 +HEADER FROM TEST 
3617 020240 105011 CLRB (R1) PUT TERMINATOR IN 
3618 020242 ERROF  300..LF,ERR6 
(3) 020242 104462 TRAP TSERCODE 
(5) 02024% O00454 .WORD 300 
(5) O29246 007111 .WORD LF 
(5) 020250 014314 .WORD ERR6 
oth 020252 000205 RTS RS EXIT ROUTINE 
3621 . SBTTL LOAD RLCS 
3622 5 REXKAAAAARAARARAAARAAAA KARA AAA AAAS AAA AAA AAA AAA AA AA AAA AAA AAAS 
3623 +* ROUTINE TO LOAD RLCS WITH FUNCTION TO BE PERFORMED 
3624 :* CALL: JSR RS. LDFUNC LOAD THE FUNCTION IN NEXT WORD 
3625 ;x WORD ‘BITS TO BE LOADED, FUNCTION 
3626 re +AND INTR ENABLE ONLY 
3627 | 
3628 i 
3629 
3630 020254 032777 O40000 161750 LOFUNC: BIT #B1T14, dRLCS DRIVE ERROR SET 
3631 020262 001426 BEQ 5$ 
3632 020264 017737 161746 002212 MOV @RLDA. B. DA 
3633 020272 012777 OOCO13 161736 MoV #13, ARLDA 
3634 020300 012737 000200 002206 MoV #200.8.CS 
3635 020306 053737 002124 002206 BIS DRIVE.B.CS 
3636 020314 013777 002206 161710 MOV B. CS, ARLCS 
3637 020322 032777 000200 161702 6%: BIT #200, aRLCS 
3638 020330 001774 BEQ 6$ 
3639 020332 013777 002212 161676 MOV B. OA. ARLDA 
3640 020340 012537 002136 5S: MOV (R5)+,LOCSR +GET BITS TO LOAD 
3641 O2Z20344 010346 MoV R3,-(SP) SAVE R3 
3642 020346 042737 177661 002136 BIC #177661,LOCSR ;CLEAR ALL BUT FUNC & INTR EN 
3643 020354 013737 002136 002250 MoV LOCSR. FNDF NC + SAVE FUNCTION 
364% 020362 042737 000100 002250 BIC #INTEN.FNOFNC ;>ONLY FUNCTION 
3645 020370 012703 020510 MoV #HORLST. RZ +GET HEADER LIST 
3646 020374 006237 002250 ASR F NDF NC *+ALIGN TO LEFT 
3647 020400 001404 BEQ 2$ + 1F EQUAL TO ZERO. SET R3 
3648 020402 022323 18: CMP (R3)+, (R3)+ BUMP R3 BY 4 
3649 020404 005337 002250 DEC F NDF NC DEC FUNCTION 
3650 020410 001374 BNE 1$ +FOUND IT? NO-GO BACK 
3651 020412 032737 000100 002136 2%: BIT # INTEN, LOCSR + YES. DO WE WANT FLAG OR INTR? 
3652 020420 001401 BEQ 3$ +FLAG BRANCH 
3653 020422 005723 TST (R3)+ + INTR POINT TO THAT ONE 
3654 020424 011303 35: MoV (R3),R3 +SET HEADER 
3655 0204 010337 020236 MOV R3.RESTMS +SET UP HEADER 
3656 020432 010337 002254 Mov R3. TRYFNC +SAVE HEADER FOR LATER 
3657 020436 053737 002252 002136 BIS XMEM. LOCSR *LOAD E.A. BITS 
3658 020444 37 002252 CLR XMEM *CLEAR OUT THE BITS 
3659 020450 053737 002124 002136 BIS DRIVE. LOCSR +SELECT ORIVE 
3660 020456 052737 000200 002136 BIS #200. LOCSR 
3661 020464 013777 002136 161540 MOV LOCSR. @RLCS *+LOAD FUNCTION 
3662 020472 004537 020562 JSR RS. BEFORE READ REGISTERS 
3663 020476 042777 000200 161526 4S: BIC #200. ARLCS ; ISSUE COMMAND 


OUTERR 


DZRLEA. 


MACY11 30(1046) 


Pil 


020504 
020506 


020510 
020512 


020544 
020546 


020550 
020552 
020554 
020556 
020560 


012603 
000205 


007177 


010013 
010047 


012504 
112421 
001376 
105741 
000205 


017737 
017737 
017737 
017737 
000205 


017737 
017737 
017737 
017737 
017737 
017737 
000205 


O03-NOV-77 
O3-NOV-77 O09: 54 


161444 
161440 
161434 
161430 


161412 
161406 
161402 
161376 
161370 
161362 


002206 
002210 
002212 
002214 


002216 
002220 
002222 
002224 
002226 
002230 


10:02 PAGE 83-23 
LOAD RL 


cs 


MOV (SP)+,R3 +RESTORE R3 
RTS RS sEXIT 


HORLST: NOPMES 
NOP INT 


RONINT 


j MXXKAAAAAAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AES 
;¥ROUTINE TO MOVE ASCII STRINGS 
;KUSES REGISTERS R1 - WHERE STRING IS BEING BUILT 


re CALL JSR RS, FIX 
7x . WORD ;ADDRESS OF STRING TO MOVE 
F IX: MOV (R5)+,R4 ;GET ADDRESS AND MOVE RETURN 
1$: MOVB (R4)+, (RID+ GET BYTE AND UPDATE 
BNE 1$ ;WATCH O BYTE TERMINATOR 
TSTB -(R1) BACK UP OVER ZERO BYTE 
RTS RS s EXIT 


;ROUTINE TO READ REGISTERS PRIOR TO OPERATION 
;CALL: JSR R5, BEFORE 


, 


BEFORE: MOV @RLCS.B. CS *READ CS 
Mov ORLBA. B. BA ; BA 
MOV @RLDA. B. DA ; DA 
MoV ORLMP. B. MP ; MP 
RTS RS 


ROUTINE TO READ REGISTERS AT TIME OF ERROR 
sCALL: JSR RS, AFTER 


AFTER: MOV @RLCS.E.CS ; 
MoV ORLBA. E. BA~ ; 
MoV @RLDA. E. DA- ; DA 
MOV ORLMP.E. MP - ; 
MoV ORLMP.E. MPI ; 
MoV erate OY ; 


SEQ 0046 


OUTERR 


DZRLEA. 


Pil 


MACY11 wb te 
O03-NOV-77 


020662 


021014 


021016 
021024 
021026 
021030 
021032 


021034 


010046 


001333 


013737 
012602 
012601 
012600 
000205 


012701 
032777 
001011 


012700 
104027 
005301 
001367 


104462 
000310 
007017 


O3-NOV-77 10:02 PAGE 83-24 
09: 54 LOAD RLCS 
SIMBCC: MOV 
MOV 
MOV 
002162 MoV 
002164 MOV 
002166 MOV 
002144 1$ CLR 
002166 MoV 
002164 ROR 
ADC 
oco001 BIT 
BEQ 
002144 Con 
002142 25: MoV 
COM 
002144 BIC 
CLC 
002166 ROR 
002144 Mov 
002166 Mov 
MOV 
BIC 
002144 BIC 
BIS 
002142 002166 BIC 
002166 BIS 
002162 DEC 
BNE 
002166 002146 MoV 
. MOV 
MOV 
MoV 
RTS 
000144 WTORDY: MOV 
000001 161164 1%: BIT 
BNE 
WAI TUS 
000024 Mov 
ENT 
DEC 
BNE 
ERROF 
TRAP 
. WORD 
. WORD 


RO, -(SP) 
R1. - (SP) 
RZ, -(SP) 
(R5)+, TEMP2 
(R5)+, TEMPS 
(R5)+, TEMPY 


2$ 
BCCFBK 
XPOLY. RO 


RO 
RO. BCCFBK 


TENP4 
BCCFBK, RO 
TEMP4Y, R1 
R1,R2 


R1,R0 
BCCFBK, R2 
R2,R0 
XPOLY. TEMP4 
RO, TEMP4 


TEN? 2 
1$ 


TEMP4, CALBCC 
(SP)+,R2 
(SP)+,R1 
(SP)+,R0 

RS 


——— 


+SAVE RO 


R2 
;GET NUMBER OF BITS 
GET DATA FOR CRC CALCULATION 
+GET STARTING CRC 


[GET PRESENT CRC 


ROTATE NEW DATA 
a. NEW WITH OLD 


O SET 
+ 1F NOT CONTINUE 


[GET CRC POLYNOMIAL (CRC-16) 
COMPLIMENT POLYNOMIAL 


CLEAR CARRY 


RETURN 


;ROUTINE TO WAIT FOR DRIVE READY 


#100. ,R1 
#DRDY, ARLCS 
2$ 


200. . ORTIM. ERRS 


TSERCODE 
200 
ORTIM 


SEQ 0047 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-25 
: 54 LOAD RLCS 


DZRLEA. Pil O3-NOV-77 09:5 SEQ 0048 
=F, 021070 014256 .WORD ERRS 
144. 021072 000205 23: RTS RS 
ha +ROUTINE TO WAIT FOR CONTROLLER 
3776 021074 012701 000310 WTCRDY: MOV #200. .R1 
3777 021100 032777 000200 161124 1%: BIT @CROY, ARLCS 
2h 021106 001014 BNE 2$ 
3780 021110 WAITUS #20. 
(3) 021110 012700 000024 MoV #20. .RO 
(3) 021114 104027 ENT CSWTU 
3781 021116 005301 DEC R1 
3782 021120 001367 BNE 1$ 
vas, 021122 004537 020614 JSR RS. AFTER 
3785 021126 ERROF 100..CRTIM-ERRS 
(3) 021126 104462 TRAP TSERCODE 
(5) 021130 000144 .WORD 100 
(5) 021132 006772 .WORD  CRTIM 
(5) 021134 014256 .WORD = ERRS 
he 021136 000205 RTS RS 
3788 021140 004537 020614 2: JSR RS, AFTER 
3789 021144 000205 RTS RS 
3790 
3791 
3792 021146 005237 002132 TRPHAN: INC TRPFLG 
3793 021152 000002 RTI 
3794 
3795 021154 HDHONME : 
3796 
3797 021154 BGNSEG ;%%START OF SEGMENT%% 
(3) 021154 104004 ENT CSBSEG 
ke ; ISSUE DRIVE RESET 
3800 021156 012737 000001 002256 Mov #1,ERFLG SET ERROR FLAG 
3801 021164 012777 O00013 161044 MoV #ORST!MK!GSBIT, ARLDA 
3802 021172 004537 020254 JSR R5, LOF UNC >LOAD THE FUNCTION IN NEXT WORD 
3803 021176 000004 GSTAT 
3804 021200 004537 021074 JSR RS, WTCRDY 
3805 021204 ESCAPE SEG CHECK FOR FL: LOE, ELSE EXIT SEG 
(3) 021204 104010 ENT CSESCAPE 
(3) 021206 000216 . .WORD 10000$-. 
3806 021210 004537 020012 JSR RS. CHERR CHECK CNTLR FOR ERRORS 
3807 021214 ESCAPE SéG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 021214 104010 ENT CSESCAPE 
(3) 021216 000206 .WORD 10000$-. 
3808 
3809 
3810 021220 004537 020254 JSR R5, LOF UNC +LOAD THE FUNCTION IN NEXT WORD 
3811 021224 000010 RDHOR 
3812 021226 ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 021226 104010 ENT CSESCAPE 


(3) 021230 000174 .WORD 10000S-. 


OUTERR 


DZRLEA. 


Pil 


MACY11 3 
1 0 
021232 


021240 


021242 
021246 
021246 
021250 


021252 
021260 
021266 
021270 
021276 
021304 


021312 
021316 
021320 
021324 
021324 
021326 


021330 
021334 
021334 
021336 


021340 


021364 


021366 
021374 
021402 


021404 
021404 
021406 
021410 
021412 


021414 
021414 
021416 


021420 


3-NOV- 


0(104%6) 
? 


004537 


104010 
000164 


004537 


104010 
000154 


013737 
042737 
001424 
042737 
012777 
053777 


004537 
000006 
004537 


104010 
000076 


004537 


104010 
000066 


004537 
000010 
004537 


104010 
000050 
004537 


104010 
000040 


013737 
043737 
001494 


104462 
000620 
010103 
014044 


104010 
000006 


005037 


021074 


020012 


002224 
000077 


000100 
000001 
002150 
020254 


021074 


020012 


020254 
021074 


020012 


002224 
002140 


002256 


03-NOV-77 
7 09: 54 


002150 
002150 


002150 
160732 
160724 


002150 
002150 


99S: 


10:02 PAGE 83-26 
LOAD RLCS 


JSR 
ESCAPE 
ENT 
. WORD 


ESCAPE 
EMT 
. WORD 
CLR 


RS, WTCROY 
CSESCAPE 
10000$-. 
RS, CHERR 


S) 
CSESCAPE 
10000$-. 


E. MP. THPO 
#77, THPO 
995 


#100, THPO 
#MK, ARLDA 
THPO, ARLDA 
RS, LDFUNC 
RS, WTCRDY 


SEG 
CSESCAPE 
10000$-. 


R5, CHERR 
SEG 


CSESCAPE 
10000$-. 


RS. LOF UNC 
R5, WTCRDY 
SEG 
CSESCAPE 


CSESCAPE 
10000$-. 


E. MP. THPO 
ee re 


+= + A, apt 


TSERCODE 
400 
SKHOME 
ERRO 
SEG 
CSESCAPE 
10000$-. 


ERFLG 


+CHECK FOR FL: LOE, ELSE EXIT SEG 


+ CHECK CNTLR FOR ERRORS 
CHECK FOR FL: LOE. ELSE EXIT SEG 


GET HEADER 
+SEEK 1S NOT NECESSARY 


+SET TO SEEK 
SET IN DIFFERENCE 


+LOAD THE FUNCTION IN NEXT WORD 


+ CHECK FOR FL: LOE, ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 
+ CHECK FOR FL: LOE, ELSE EXIT SEG 


;LOAD THE FUNCTION IN NEXT WORD 


CHECK FOR FL: LOE, ELSE EXIT SEG 


GET HEADER 
+ IGNORE SECTOR 
ON ZERO 


+CAN'T SEEK TO TRACK O 


CHECK FOR FL: LOE. ELSE EXIT SEG 


; INDICATE SUCCESS BACK TO MAIN PROGRAM 


SEQ 0049 , 


OUTERR 


DZRLER. 


Pil 


MACY11 30(1046) 
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021424 
021424 
021424 


021426 
021430 


021430 
021430 


021430 


021430 
021434 
021442 
021444 


021446 
021446 


021450 
021450 
021454 
021460 
021464 
021470 


021622 


104005 
000207 


004737 
104032 
000232 
104004 


012746 


001367 


03-NOV-77 


021154 


000340 
021146 
002122 
000003 


000010 


160524 
160516 


002156 
002156 


160434 
160422 


10:02 PAGE 83-27 
LOAD RL 


cs 


ENDSEG +%%END OF SEGMENT%% 

ENT CSESEG 

RTS PC 

ENDMOD 
.SBTTL XKTEST 1%% - WRITE NPR INTEGRETY 
BGNTST sHXSTART OF TESTXX 
STARS 
3 ¢ MERAAAAAAAAAAAAAAAAAAAAAA AAA AAA AA AA AA AA AAAS AA AAA AAA AAA AA AAAS 
CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE 
;UNIBUS. WE SET UP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS. 


STARS 
js RAEXAAAAAAAAAAA AA AAA AA AAA AA AAA AAA AA AAA AAA AAA AAA A AAA AAA RASA AS 


10000$: 


JSR PC. HDHOME +HEADS OVER TRACK O 
CKERFG HEADS GO HOME OKAY 
ENT CSEXIT 

.WORD L10026-. 


BGNSEG ;%%START OF SEGMENT%% 
EMT CSBSEG 
1$: SETVEC ERRVEC. #TRPHAN, #340 ;SET UP FOR TRAP 


MoV #340, - (SP) 
MoV #TRPHAN, - (SP) 
MoV ERRVEC, -(SP) 
MOV #3,-(SP) 


ENT CSSVEC 
ADD #10. SP 
CLR TRPFLG ;CLEAR TRAP OCCURANCE 
MoV #BUF, ORLBA +BUS ADDRESS 
CLR @RLDA +LOAD DISK ADDRESS 
Mov #-1, ARLMP +WORD COUNT OF 1 
CLR GODAT +SET UP CSR TO LOAD 
MoV DR 1 VE. GODAT *SET IN DRIVE 
BIS #WR ITE. GODAT +SET IN FUNCTION 
JSR RS. BEFORE +LOAD FOR ERROR PRINTOUT 
MoV GDDAT. B. CS +SET IN COMMAND 
BIS #201.8.CS *LOAD CRDY 
BIC #0P1,B8.CS *CLEAR (BIT 10) 
MOV GDDAT. @RLCS + ISSUE WRITE 
MOV #100. .R1 >WAIT FOR CRDY 
5%: BIT #CROY. ARLCS +NPR DONE 
BNE 6$ 7 YES. 6% 
WAITUS #20. +WAIT A WHILE 
MoV #20. .R0 
ENT CSWTU 
DEC Ri +A WHILE UP 
BNE 5$ NO, GO BACK 


SEQ 0050 


Hn 4 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-28 
DZRLEA. Pili O3-NOV-77 09: 54 XSTEST 12% - WRITE NPR INTEGRETY SEQ 0051 
3892 
3893 021624 004537 020614 JSR RS. AFTER 
3894 021630 ERROF 0.,CRTIM,ERRS ; CONTROLLER TIMED OUT 
(3) 021630 104462 TRAP TSERCODE 
(5) 021632 000000 , .WORD O 
(5) 021634 006772 .WORD = CRTIM 
(5) 021636 014256 .WORD ERRS 
3895 021640 6$: CLRVEC ERRVEC + CLEAR VECTOR 
(3) 021640 013700 002122 MoV ERRVEC. RO 
(3) 021644 104036 ENT CSCVEC 
3896 021646 ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 021646 104010 ENT CSESCAPE 
ser 021650 900024 .WORD 100015-. 
3898 021652 005737 002132 TST TRPFLG +DID TRAP OCCUR? 
3899 021656 001406 BEQ 7$ +NO 
3900 021660 004537 020614 JSR RS. AFTER 
3901 021664 ERRSF 1.,EM51,ERRO ; TRAP ON WRITE 
(3) 021664 104461 TRAP TSERCODE 
(5) 021666 000001 .WORD 1 
(5) 021670 012745 .WORD EMS1 
(5) 021672 014044 .WORD ERRO 
3902 021674 7$: 
3903 
3904 
3905 021674 ENDSEG +%%END OF SEGMENT%% 
(3) 021674 100015: ‘ 
a 021674 104005 EMT CSESEG . 
3907 021676 ENDTST +XXEND OF TESTXX 
(3) 021676 L10026: 
Bi 021676 104001 EMT CSETST 
. .SBTTL XXTEST 2% - WRITE FUNCTION 
3910 
3911 021700 BGNTST ;HASTART OF TESTXX 
3912 
3913 
3914 
3915 021700 STARS 
(2) js RERAAAAAAAAAATAAAAALALAAA AAA AAA AA TATA AAA AAA AAA AA AAA AAA TATE 
3916 ;CHECK OF WRITE LOGIC UNDER FLAG MODE. WE WILL FIRST ISSUE A 
3917 ;READ HEADER SO THAT WE DON'T WRITE ON THE BAD SECTOR 
3918 7FILE TRACK. WE WILL WRITE A FULL SECTOR (128 WORDS) FROM 
3919 ;MEMORY (BUF). WE CHECK THAT NO ERRORS OCCUR. IF WE 
3920 ;HAVE A ORIVE ERROR WE WILL DO A “GET STATUS" TO SEE 
3921 7 1F WRITE PROTECT IS SET IF IT 1S WE WILL ABORT THE 
3922 ; TEST. AN ERROR ON THE WRITE WILL LOOP ON JUST THE 
3923 ;WRITE PORTION. LOOP ON TEST WILL READ HEADER. SEEK (IF 
3924 NECESSARY) AND WRITE. 
3925 021700 STARS 
(2) js RERAAAAAAAAAAARARAAAAA AAA AA AAA AAA AA AA AA AAA AAA AAA AAA AAA AAA AAT 
3926 
3927 
3928 021700 004737 021154 JSR PC, HOHONE +HEADS OVER TRACK 0 


3929 021704 CKERFG +HEADS GO HOME OKAY 


OUTERR 


DZRLEA. 
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MACY11 301046) 
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021712 
021714 


021716 
021716 


021720 


021744 


021746 
021752 
021752 
021754 


021756 
021764 
021766 


022010 


022012 
022020 
022026 


022030 
022030 
022032 
022034 
022036 
022040 


022040 


022042 
022042 


022044 
022044 


104032 
000126 


104004 


005077 


000012 
004537 


104010 
000064 


032777 
001425 


012777 
004537 
000004 
004537 


104010 
000030 


013737 
032737 
001404 


104461 
000003 
010131 
014044 


104005 


104001 


03-NOV-77 


09: 54 


160312 
177600 
002652 
020254 


021074 


040000 


000003 
020254 


021074 


002224 
020000 


160306 
160274 


160246 


160242 


002156 
002156 


N 4 
XRTEST 28% - WRITE FUNCTION 


10:02 PAGE 83-29 


ENT CSEXIT 
.WORD 1L10027-. 
BGNSEG +%%START OF SEGMENT%% 
EMT CSBSEG 
34: 
CLR @RLOA +SET DISK ADDRESS 
MoV #-128. . ORLMP WORD COUNT 
MoV #BUF, ARLBA +BUS ADDRESS 
JSR RS, LOF UNC +LOAD THE FUNCTION IN NEXT WORD 
WRITE ; WRITE 
JSR RS, WTCROY ;WAIT FOR CONTROLLER READY 
ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
EMT CSESCAPE 
.WORD 10000$-. 
BIT #DERR, ARLCS ;DRIVE ERROR SET? 
BEG 49 +;BRANCH IF NOT 
MoV #MK'GSBIT, ARLDA ; SET GET STATUS OF DRIVE 
JSR RS, LOF UNC LOAD THE FUNCTION IN NEXT WORD 
GSTAT ; GET STAT US 
JSR RS, WTCRDY ;WAIT FOR CONTROLLER READY 
ESCAPE SEG > CHECK FOR FL: LOE. ELSE EXIT SEG 
EMT CSESCAPE 
.WORD 100005-. 
MOV E. MP. GODAT ;READ DRIVE STATUS 
BIT #81713, GDDAT ; WRITE LOCK ERROR? 
BEQ 4S ;NO, BRANCH 
ERRSF 3..WRLOCK.ERRO sWRITE LOCK ERROR 
TRAP TSERCODE 
.-WORD 3 
.WORD WRLOCK 
.-WORD ERRO 
4S: 
ENOSEG +%Z%END OF SEGMENT%% 
100008: 
EMT CSESEG 
ENDTST +XXEND OF TESTXX 
L10027: 


ENT CSETST 
.SBTTL XATEST 34% - WRITE FUNCTION INTERRUPT 
BGNTST + EXSTART OF TESTX% 


STARS 
jj RAAXAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AEE EY 


SEQ 0052 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-30 
DZRLEA. P11 O3-NOV-77 O09: 54 RXTEST 34% - WRITE FUNCTION INTERRUPT SEQ 0053 
3970 CHECK OF WRITE LOGIC UNDER ea é MODE. WE WILL wy A 
3971 +READ HEADER SO THAT WE DON’ ITE ON THE BAD SECTOR FILE 
3972 TRACK. WE WILL WRITE A FULL SECTOR (128 WORDS) FROM HERORY (BUF ). 
3973 +WE CHECK THAT NO ERRORS OCCUR. WE DO NOT CHECK RLOA OR RLBA 
3974 + INCREMENT AT THIS TIME. 
3975 022044 STARS 
Wie js RXXAAAAAAAAAAAAAAAARAAA AAA AAA AA AAA AAA AAA AAA AAA AA AA AAA AAA AAT 
3977 
3978 022044 004737 021154 JSR PC, HOHOME +HEADS OVER TRACK O 
3979 022050 CKERFG +HEADS GO HOME OKAY 
(4) 022056 104032 ENT CSEXIT 
mo 022060 000112 .WORD L10030-. 
3981 022062 BGNSEG +%%START OF SEGMENT%% 
(3) 022062 104004 EMT CSBSEG 
3982 
3983 
3984 022064 005037 002134 CLR INTFLG +CLEAR INTERRUPT OCCURANCE FLAG 
3985 022070 005077 160142 CLR @RLDA 
3986 022074 012777 177600 160136 MOV. #-128. , ARLMP + SET UP WORD COUNT 
oo 022102 012777 002652 160124 Mov #BUF, @RLBA *SET UP BUS ADDRESS 
3989 022110 SETPRI #PRIOO PRIORITY TO O 
(3) 022110 012700 000000 MOV #PR100,R0 ; 
(3) 022114 104041 ENT CSSPRI 
3990 022116 004537 020254 JSR RS. LOFUNC +LOAD THE FUNCTION IN NEXT WORD 
3991 022122 000112 WRITE! INTEN *+WRITE UNDER INTERRUPT 
3992 022124 004537 021074 JSR RS, WTCROY ;WAIT FOR INTERRUPT 
3993 022130 ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 022130 104010 ENT CSESCAPE 
an 022132 000036 : .WORD 10000$-. ' 
3995 022134 SETPRI #PRIO7 SET PRIORITY TO 7 
(3) 022134 012700 000340 MOV #PRIO7,R0 
(3) 022140 104041 EMT CSSPRI 
3996 022142 005737 002134 TST INTFLG +D1ID INTERRUPT OCCUR? 
tad 022146 001004 BNE 2$ + YES-BRANCH NO-REPORT 
3999 022150 ERROF 4.,EM17-ERRO *WRITE DID NOT INTERRUPT 
(3) 022150 104462 TRAP TSERCODE 
(5) 022152 000004 .WORD 4 
(5) 022154 011151 .WORD EMI? 
(5) 022156 014044 .WORD  ERRO 
4000 022160 2: ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 022160 104010 EMT CSESCAPE 
se a 022162 000006 .WORD 100005-. 
4001 
4002 022164 004537 020012 JSR RS, CHERR > CHECK CNTLR FOR ERRORS 
4003 
4004 022170 ENDSEG +%Z%END OF SEGMENT%% , 
(3) 022170 100008: 
(3) 022170 104005 ENT CSESEG 
4005 022172 ENOTST ;*XEND OF TESTXX 
(3) 022172 L10030: 


(3) 022172 104001 ENT CSETST 


OUTERR 


DZRLER. 






MACY11 wth ngy 2 


Pil O03-NOV-7 


022174 


022174 


022174 


022174 
022200 
022206 
022210 


022212 
022212 


022214 
022214 
022220 
022226 
022234 
022242 


022250 


022312 


022314 
022314 
022316 
022320 
022322 


022324 


022324 
022324 


004737 


104032 
000116 


104004 


005077 
012777 
012777 
012737 
062737 


004537 
000012 
004537 


104010 
000040 


004537 


104010 
000030 
017737 
023737 
001404 


104462 
000005 
011211 
014210 


03-NOV-77 


09: 54 


021154 


160016 
00252 
177600 
002652 
000400 


020254 
021074 


020012 


157732 
002160 


160006 
160004 
002156 
002156 


002160 
002156 


10:02 PAGE 83-31 


¢ 5 


AXTEST 34% - WRITE FUNCTION INTERRUPT SEQ 0054 


.SBTTL &kTEST 4X - PROPER INCREMENT OF RLBA ON WRITE 
BGNTST sEXSTART OF TESTX* 


STARS 

js RERAAAAAAARATAAARAAAAAAALAAA ALAA AAA ALAA AAA AAA AAA AAA AAA AEA 
+CHECK THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE 

*WRITE WAS FINISHED THE — SHOULD BE 128 WORDS (256 BYTES) 
;CREATER. STARTING RLBA IS “BUF”. ENDING SHOULD BE “BUF + 256. " 
;WE WILL MONITOR ALL ERRORS AND REPORT THEM ACCORDINGLY 


STARS 
js MEXAKAAAAAAAAAAAAAALARARAAAAAAAAAAAAAAA AAA AAA AA AA AAA AAA A AAA AES 





JSR PC, HDHOME ;HEADS OVER TRACK O 
CKERFG ;HEADS GO HOME OKAY 
ENT CSEXIT 
. WORD L10031- 
BGNSEG ;%%START OF SEGMENT%% 
ENT CSBSEG 
3s: 
CLR @RLOA 
MoV #BUF, ARLBA ;SET UP BUS ADDRESS 
MoV #-128. . ARLMP ; WORD COUNT 
MOV #BUF. GDDAT ; FORM EXPECTED 8US ADDRESS 
ADD #256. . GDDAT ; AFTER WRITE 
JSR R5, LOFUNC ;LOAD THE FUNCTION IN NEXT WORD 
WRITE ; WRITE 
JSR RS, HTCRDY ;WAIT FOR CONTROLLER READY 
ESCAPE SEG ;CHECK FOR FL: LOE. ELSE EXIT SEG 
EMT CSESCAPE 
.WORD 10000S-. 
JSR RS, CHERR ; CHECK CNTLR FOR ERRORS 
ESCAPE SEG ; CHECK FOR FL: LOE. ELSE EXIT SEG 
ENT CSESCAPE 
.WORD 10000$-. 
MoV @RLBA. BODAT ;READ ‘RLBA' FOR PRESENT ADDRESS 
CMP BDDAT. GDDAT ;DID "BA' INCREMENT PROPERLY? 
BEQ 23 >; YES. CONTINUE 
ERRDOF 5..EM20. ERR4Y ;BA DID NOT INCREMENT 
TRAP TSERCODE 
.WORD 5 
.WORD EN20 
.WORD = ERRY 
23: 
ENDSEG ;%%END OF SEGMENT%% 
10000S: 





OUTERR 
DZRLEA 


MACY11 30(1046) 
O3-NOV-77 09: 54 


. Pil 
022324 
022326 


022326 
022326 


022330 
022330 


022330 


022330 
022334 
022342 
022344 


022346 
022346 


022454 


104005 


104001 


004737 


104032 
000114 


104004 


005037 
013777 
005237 
012777 
012777 


004537 
000012 
004537 


104010 
000040 


004537 


104010 
000030 


013737 
023737 
001404 


104462 
000006 
011266 
014210 


03-NOV-77 


021154 


002156 
002156 
002156 
177600 
002652 


020254 
021074 


020012 


10:02 PAGE 83-32 


0 5 


RXTEST 4YXK - PROPER INCREMENT OF RLBA ON WRITE 


ENDTST 


110031: 


. SBTTL 
BGNTST 


STARS 
ee ee te carter IMEREMATTTS AFTER THE WRITE UE SIDER, 


OF THE SECOTR. | 
Petititicsstittiitessiiititecssiititisssssiiiieeess sii eters sss fy 


35: 
157654 


157644 
157632 


002222 002160 
002156 002160 


ENT 


ENT 


CSESEG 


CSETST 


+¥XEND OF TESTS* 


XTEST Skx - PROPER INCREMENT OF RLDA ON WRITE 
sRXSTART OF TESTEX 


HAT THE SECTOR INCREMENTS AFTER THE WRITE WAS FINISHED. 
;WE RANDOMLY PICK A SECTOR (OTHER THAN LAST TRACK) AND ISSUE 
+A FULL SECTOR WRITE THE RLOA SHOULD REFLECT AN INCREMENT 
“GDDAT” WAS THE EXPECTED RLDA. 


JSR 
CKERFG 
EMT 
. WORD 
BGNSEG 
EMT 


PC, HDHOME 
CSEXIT 
L10032-. 


CSBSEG 


GODAT 

GDDAT. dRLDA 
GODAT 
#-128. , ARLMP 
#BUF. ARLBA 
RS, LOFUNC 
RS. WTCRDY 


EG 
CSESCAPE 
10000$-. 


RS. CHERR 
SEG 

CSESCAPE 
10000$-. 


E. DA, BODAT 
GODAT. BODAT 
$ 

6. -ENZ1, ERRY 
TSERCODE 


6 
EM21 
ERRY 


+HEADS OVER TRACK 0 
;HEADS GO HOME OKAY 


+ SETUP DISK ADDRESS 


+ %%START OF SEGMENT%% 


+ CREATE EXPECTED SECTOR 


;WORD C 


OUN 


T 
; SETUP BUS ADDRESS 


sWRITE 


;LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR CONTROLLER READY 
> CHECK FOR FL: LOE. 


;READ DISK ADDRESS 


ELSE EXIT SEG 


> CHECK CNTLR FOR ERRORS 
7 CHECK FOR FL: LOE. 


ELSE EXIT SEG 


*DID SECTOR INCREMENT PROPERLY 


2 YES. 


BPANCH NO, 


REPORT ERROR 


+DA DID NOT INCREMENT 


SEQ 0055. 


OUTERR 


DZRLER. 


Pil 


022456 


022456 
022456 
022456 
022460 
022460 
022460 


022462 
022462 


022462 


022462 
022466 
022474 
022476 


022500 
022500 


022502 
022510 
022516 


022524 


022536 
022540 


022542 
022550 
022556 
022564 


022566 
022572 
022572 


022574 
022602 
022604 
022604 
022606 


MACY11 30(1046) 
O03-NOV-7 


104005 


104001 


004737 


104032 
000120 


104004 


012777 
012777 
012777 


004537 
000012 
004537 


104010 
000054 


013737 
042737 
022737 
001402 
004537 
104006 


022737 
001404 


104462 
000027 


03-NGV-77 
7 O09: 54 


021154 


000050 
002652 
177777 
020254 


021074 


002216 
001777 
112000 


020012 


112000 


157526 
157516 
157514 


002150 
002150 
002150 


002150 


— 5 


10: 7 PAGE 83-33 


XXTEST S&k - PROPER INCREMENT OF RLDA ON WRITE 


23: 


100008: 


ENDTST 


L10032: 


. SBTTL 
BGNTST 


ENDSEG +%%END OF SEGMENT%% 


EMT CSESEG 
+¥KEND OF TESTXX 


ENT CSETST 
XXTEST 6%% - FORCE HEADER NOT FOUND WITH WRITE 
+ HXSTART OF TESTXX 


STARS 
js MAERAAAAAAAAAAARAAAAKARAAAAAAAAAAAA AAA AA AA AA AAA AAA AAA AA AA AA AA AAAS 
;FORCE HEADER NOT FOUND ERROR TO OCCUR. THIS IS DONE 

BY SETTING SECTOR 40 OF THE RLDA AND ISSUING A 


; WRITE. 


SECTOR 40 DOES NOT EXIST ON THE RLO1 PACK 


— HDR NT FOUND SHOULD SET. 
5s RAXKAAAAAAARARAAAAAAAA AAA AAA AAA AAA AA AAA AA AA AAA AA AA AA AAA AAA AAS 


18: 


JSR PC, HDHOME +HEADS OVER TRACK O 
CKERFG HEADS GO HOME OKAY 
EMT CSEXIT 

.WORD L10033-. 


BGNSEG +%%START OF SEGMENT%% 
ENT CSBSEG 


MOV #40. . ARLOA ; INSURE NOT TO FIND HEADER BY 
MOV #BUF. ARLBA +SETTING SECTOR 4O OF CYL. ADDR. 
MOV #-1,0RLMP WORD COUNT 


JSR R5, LDFUNC ;LOAD THE FUNCTION IN NEXT WORD 
WRITE WRITE 
JSR R5, HTCRDY ;WAIT FOR CONTROLLER READY 
EG + CHECK FOR FL: LOE. ELSE EXIT SEG 
ENT CSESCAPE 


.WORD 10000S-. 
MOV E. CS, THPO +GET RLCS 


BIC #1777, THPO +SAVE ERROR BITS 
CMP #BITIS!BIT1IZ!B1T10. TMPO ;HOR NOT FOUND SET 


m 
wn 
oO 
D 
ov 
m 
ww 


BEQ 1$ + YES. CONTINUE 
JSR R5, CHERR 
CKLOOP 


ENT CSCLPI1 
CMP aerate =e 
ERROF  23.,EN10,ERRO 


TRAP TSERCODE 
.WORD 23 


SEQ 0056 


OUTERR 


DZRLEA. 


Pil 


MACY11_ 30(1046) 
03-NOV-77 


022610 
022612 


022614 


022614 
022614 
022614 
022616 
022616 
022616 


022620 


022620 


022620 


022620 
022624 
022632 
022634 


022636 
022636 


022640 
022640 
022644 
022646 
022652 
022660 
022666 


022674 


022714 


022716 
022722 


022724 
022724 


010643 
014044 


104005 


104001 


004737 


104032 
000160 


104004 


012700 
104041 
005037 
012777 
012777 
012777 


004537 
000112 
004537 
104006 


012700 
104041 


005737 
001004 


104462 


09:5 


021154 


000000 
002134 
000050 
002652 
177777 
020254 


021074 


000340 


002134 


patie 


157356 
157346 
157344 


F 5 


10:02 PAGE 83-34 


KXTEST 6%% - FORCE HEADER NOT FOUND WITH WRITE 


23: 


10000$: 


ENDTST 


L10033: 


. SBTTL 
BGNTST 


STARS 


.WORD EM10 
.WORD  ERRO 
ENDSEG 

ENT CSESEG 


EMT CSETST 


;WHEN FORCED 


+%%END OF SEGMENT%% 


+¥XEND OF TESTX* 


XXTEST 7% - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT 


;¥XSTART OF TESTX% 


3 REXAAAAAAAAAAAAAAARAAA LALA AAA AA AA AAA AAA AAA A AA AAA AA AA AA AAA AAAS 
; TEST THAT HEADER NOT FOUND ERROR WILL GENERATE AN INTERRUPT 


ON OCCURANCE. 


HEADER NOT FOUND WILL BE FORCED BY SETTING 


oa 4O OF RLDA AND ISSUEING A WRITE 
js RAEXAAAAAAAAARA AAA AAA AA AAA KARA AA AA AAA AA AAA AAA AAA AAA AA AAA AAA AAAS 


PC, HOHOME 


ENT CSEXIT 
~WORD = L10034-. 


BGNSEG 
EMT CSBSEG 


SETPRI #PRIOO 

MOV #PR100, RO 
ENT CSSPRI 

CLR INTFLG 

MoV #40. , ARLDA 
MoV #BUF. ARLBA 
MoV #-1, ORLMP 


JSR R5, LOFUNC 
WRITE! INTEN 
JSR RS, WTCRDY 


EMT CSCLP1 
SETPRI #PRI07 
MOV #PR107,R0 


ENT CSSPRI 
TST INTFLG 
BNE 2$ 


ERRDOF 24.,EM43.ERRO 
TRAP TSERCODE 


;HEADS OVER TRACK OQ 
+HEADS GO HOME OKAY 


;%%START OF SEGMENT%% 


;CLEAR INTERRUPT OCCURANCE FLAG 
+ INSURE NOT TO FIND HEADER BY 
+SETTING SECTOR 4O OF CYL. ADDR. 
*WORD COUNT 


+LOAD THE FUNCTION IN NEXT WORD 


; WRITE 
;WAIT FOR CONTROLLER READY 


RI 
Al 


+DID INTERRUPT OCCUR 
+YES OKAY 


*NO INTERRUPT FROM OPI 


SEQ 0057 


OUTERR 


DZRLEA. 


Pi 


rn 


022726 
022730 
022732 


022734 
022734 
022736 


022740 
022746 
022754 
022762 


022764 
022770 
022770 


022772 
023000 
023002 
023002 
023004 
023006 
023010 


023012 
023012 
023012 
023012 
023014 


023014 
023014 


023016 
023016 


023016 
023016 
023022 
023030 
023032 


023034 
023034 


30(104%6) 


03-NOV-77 


000030 
012523 
014044 


104010 
000054 


013737 


001402 
004537 
104006 


022737 
001404 


104462 
000031 


010643 
014044 


104005 


104001 


004737 


104032 
000264 


104004 


09:5 


002215 
001777 
112000 


020012 


112000 


021154 


oy paid 


002150 
002150 
002150 


002150 


G 5 
AXTEST 7%% - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT 


10:02 PAGE 83-35 


.WORD 24 
.WORKD = EMYS 
.WORD ERRO 
23: ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
ENT CSESCAPE 
.WORD 100005-. 
MOV E. CS, THPO *GET RLCS 
BIC #1777, THPO + SAVE ERROR BITS 
CMP SBITIS!BIT1Z!BIT10, TMPO ;WOR NOT FOUND SET. 
BEQ 1$ +YES, CONTINUE 
JSR RS, CHERR 
1$: CKLOOP 
EMT CSCLP1 
CMP #BITIS'BIT12!B1T10, TMPO 
BEQ 3$ 


ERRDF 25..E€M10,ERRO 
TRAP _— 


.WORD €EM10 
.WORD = ERRO 
;WHEN FORCED 

35: 

ENDSEG ;%Z%ZEND OF SEGMENT%% 
10000S. 

EMT CSESEG 
ENDTST ;¥XEND OF TESTXX 
L10034: 


EMT CSETST 


.SBTTL XxTEST 8k% - CHECK OPI TIME WITH HDR NT FND 

BGNTST ;HXSTART OF TEST&* 

STARS 

5 i RERAAAAAARARAAAAA AAA AAA AAA AAA AAA AAA AAA AAA A AAA AA AAA AAA AAA AAA AAS 
;CHECK OP! TIME IT SHOULD BE AROUND 200 MILLISECONDS (ON UNIBUS) 
>;CHECK THIS BY TIMING OP1 ON A FORCED HEADER NOT FOUND 

; ISSUE WRITE WITH SECTOR 40 SET IN THE DISK ADDRESS 


STARS 
js RERAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAT AY 


JSR PC, HDHOME +HEADS OvER TRACK O 

CKERFG *HEADS GO HOME OKAY 

ENT CSEXIT 

.WORD 110035-. 

BGNSEG ;%~START OF SEGMENT%% 
ENT CSBSEG 


SEQ 0058 


OUTERR 


DZRLEA. 


MACY11 30(1046) 
Pil 03-NOV-77 


023036 


023120 


023126 
023132 


023134 


023164 
023170 


023172 
023172 
023174 
023200 
023202 
023210 
023212 
023214 
023216 


023222 


023240 
023246 


023250 


013700 
104036 


012746 


012700 
104041 
005037 
012777 
012777 
012777 


004537 
000112 


013700 


005737 


010037 


012700 
104041 
023737 
002404 


023737 
003404 


03-NOV-77 
09: 54 


002244 


000340 
017714 
002244 
000003 


000010 
000000 
002134 
000050 
002652 
177777 


020254 


157124 
157114 
157112 


002274 


002274 
002274 


002160 
002134 


002160 


000012 002160 


002160 


000340 
002274 002160 


002272 002160 


10:02 PAGE 83-36 


H 5 


XXTEST 84% - CHECK OP! TIME WITH HOR NT FND 


CLEAR PRESENT INTERRUPT VECTOR 


SET INTR. VEC. WITH ABORT WAIT 


*>CLEAR INTERRUPT FLAG 
+SET UP FOR HOR NT FND 
BUS ADDRESS 

WORD COUNT 


;LOAD THE FUNCTION IN NEXT WORD 


;WAIT MAX MILLISECONDS 


; SETUP FOR WORST CASE 
*DID INTERRUPT OCCUR 
NO, REPORT ERROR 


>GET TIME EXPIRED 


> DIVIDE 
+ ANSWER 
;BY 10 TO GET 
;RIGHT ANSWER 


71S IT WITHIN LIMITS 
NO, REPORT ERROR 


;WITHIN LIMITS 
; YES 


, 


CLRVEC BVEC 
MOV BVEC. RO 
EMT CSCVEC 
SETVEC BVEC, #TINSRV, #340 
MOV =. #340, -(SP) 
MOV ATIMSRV, - (SP) 
MOV BVEC, -(SP) 
MoV #3, -(SP) 
ENT CSSVEC 
ADD 10, SP 
SETPRI #PRIOO 
MOV PR1O0, RO 
EMT CSSPRI 
CLR INTFLG 
MOV #40. , ARLDA 
MOV #BUF, ARLBA 
MOV #-1, ORLMP 
JSR RS, LDOFUNC 
WRITE! INTEN 
Mov OP iMx, RO 
ASL RO 
ASL RO 
ASL RO 
ADD OP IMX, RO 
ADD OP INX, RO 
WAITUS RO 
EMT CSWTU 
MOV RO, BDDAT 
TST INTFLG 
BEQ 4$ 
GETTIM BDDAT 
ENT CS$GTIM 
MOV RO. BODAT 
CLR RO 
1$: SUB #10. , BODAT 
BMI 3$ 
INC RO 
BR 1$ 
35: MOV RO. BODAT 
;CRECK THAT OP! TIME 1S WITHIN LIMITS 
2: SETPRI #PRIO7 
MOV #PRIO7, RC 
ENT CSSPRI 
CMP OP INX, BDDAT 
BLT 4$ 
CMP OP INN, BODAT 
BLE 5$ 
4S: ERRDF 


974. ,€M56.ERR13 ; OP! TIMING INCORRECT 


SEQ 0059 


OUTERR 


DZRLEA. 


MACY11 
Pil 

023250 
023252 
023254 
023256 


023260 
023260 
023264 
023266 
023266 
023272 
023276 
023302 
023306 
023310 


023314 
023314 
023514 


023316 


023316 
023316 


023320 
023320 


023320 


023320 
023324 
023332 
023334 


023336 
023342 


023346 
023346 


023364 
023372 


O3-NOV- 


30( 1046 


104462 
001716 
013256 
014702 


013700 
104036 


012746 
012746 
013746 
012746 
104037 
062706 


104005 


104001 


004737 


104032 
000152 


005037 
005037 


104004 


013737 
053737 
013777 
062737 


002244 


000349 
017706 
002244 
000002 


000010 


021154 


002150 
002152 


002152 
002150 
002156 
000002 


) 03-NOV-77 
77 09: 54 


002156 
002156 
156644 
002156 


i 5 
KXTEST 8x4 - CHECK OP! TIME WITH HOR NT FND 
TRAP TSERCODE 
974 


10:02 PAGE 83-37 


. WORD 
.WORD EMNS6 
.WORD ERR13 
55: CLRVEC BVEC +; CLEAR PRESENT VECTOR 
MOV BVEC. RO 
ENT CSCVEC 
SETVEC BVEC. #INTSRV, #340 +SET IN OLD VECTOR 


MoV #340, - (SP) 
MoV # INTSRV, - (SP) 
MOV BVEC. -(SP) 
MOV #3, -(SP) 


EMT CSSVEC 

ADD #10, SP 

ENDSEG + %%END OF SEGMENT%% 
10000S: 

EMT CSESEG 
ENDTST ;XXEND OF TESTXX 
L10035: 


ENT CSETST 
.SBTTL xX&XTEST 9¥k - MULTIPLE SECTOR TRANSFER ON WRITE 
BGNTST ;HXSTART OF TESTX% 


STARS 

3 MARAKIAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ALAA AAA AAA AAAS 
;CHECK FOR MULTIPLE SECTOR TRANSFER ON WRITE. THIS TEST CHECKS 

; THAT TWO SECTORS CAN BE SUCCESSFULLY WRITTEN. WE LOAD 

;A WORD COUNT OF 129 WORDS (ONE SECTOR + 1 WORD) STARTING AT 
;SECTOR O THRU SECTOR 37 AND VERIFY THAT THE RLDA DOES 

i INCREMENT EACH TIME. 

jj AEREAAAAAAAAEAA EAA AAA A AAA AREA AERA ARATE AREA AREA AERA RARE ARRAS 


JSR PC, HDHOME +HEADS OVER TRACK 0 
CKERFG +HERDS GO HOME OKAY 
EMT CSEXIT 

.WORD L10036-. 


CLR TMPO ;CLEAR TEMP LOCATIONS 
CLR TP 1 
BGNSEG >%XSTART OF SEGMENT%% 
ENT CSBSEG 
1$: MoV TMP 1, GDDAT GET CYLINDER 
BIS TMPO. GODAT GET SECTOR 


MOV GDDAT. @RLDA SET DISK ADDRESS-SECTOR 0 
ADD #2. GODAT +SET EXPECTED + 2 


SEQ 0060 


OUTERR 


DZRLEA. 


Pil 


ye 3 


023400 
023406 


023414 
023420 
023422 
023426 
023426 
023430 


023432 
023436 
023436 
023440 


023442 
023450 
023456 


023460 
023460 
023462 
023464 
023466 


023470 


023470 
023474 
023502 


023504 
023504 
023504 
023506 
023506 
023506 


023510 
023510 


023510 


023510 
023514 
023522 


011046) 
Q3-NOV-77 


012777 
012777 


004537 
000012 
004537 


104010 
000054 


004537 


104010 
000044 


013737 


023737 
001404 


104462 
000007 
011344 
014210 


005237 
022737 
001322 


104005 


104001 


004737 
104032 


03-NOV-77 
09: 54 


002652 
177577 


020254 
021074 


020012 


002222 
002160 


002150 
000046 


021154 


156626 
156624 


002160 
002156 


002150 


10:02 PAGE 83-38 


J 5 


AETEST 9XX - MULTIPLE SECTOR TRANSFER ON WRITE 


#BUF. dRLBA +SET BUS ADDRESS 
#-129. . ORLMP WORD COUNT-SECTOR+1 WORD 


MOV 
MOV 


25: 


ENDSEG 
EMT 


10000S: 


ENDTST 
L10036: 
EMT 


RS, LDF UNC ;LOAD THE FUNCTION IN NEXT WORD 
RS, HTCRDY [WAIT FOR CONTROLLER READY? 
SEG [CHECK FOR FL: LOE, ELSE EXIT SEG 
CSESCAPE 
10000$-. 
RS, CHERR ;CHECK CNTLR FOR ERRORS 
SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 
CSESCAPE 
10000$-. 
E. DA. BDDAT ;READ DISK ADDRESS 
BDDAT, GODAT [1S DISK ADDRESS CORRECT 
25 YES, BRANCH NO, REPORT ERROR 
7.,EM22,ERR4  ; DISK ADDRESS NOT CORRECT 
TSERCODE 
EN22 
ERRY 
THPO ;NEXT SECTOR 
#46, THPO [AT END? 
1$ :NO. GO BACK 

;%KEND OF SEGMENT%% 
CSESEG 

;4XEND OF TEST#X 
CSETST 


.SBTTL XXTEST 10%% - CHECK DIRECTION OF WRITE NPR 


BGNTST 


STARS 
3 RRRAAAAAAAAAAAARAAAAAAA AAA AAA AAA ALATA A AAA AAA AAA AAA AAA AAA AAA EAL 


;XXSTART OF TESTXX 


;VERIFY THAT A WRITE 1S WRITING NOT READING. WE WRITE A 
KNOWN PATTERN IN “BUF” (128 WORD). WE THEN ISSUE A WRITE. 
ONCE THE WRITE 13 FINISHED WE CHECK THAT “BUF” IS INTACT. 
; THIS 1S DONE TO PROVE THAT THE NPR 1S GOING THE RIGHT 


; WAY. 


STARS ' 
5 5 REXAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA EAA AAAS 


JSR 
R 


CKERFG 


ENT 


PC, HDHONME +HEADS OVER TRACK 0 
*HEADS GO HOME OKAY 


CSEXIT 


SEQ 0061 


OUTERR 


DZRLEA. 


Pil 


023524 


023526 
023526 


023530 
023530 
023534 
023540 
023544 
023546 


023550 
023554 
023562 
023570 
023574 
023576 
023602 
023602 
023604 


023606 


023614 


023616 
023622 


023626 
023626 


023630 
023636 
023642 
023650 


023652 


023700 
023702 


MACY11_ 30(1046) 
1 03-NOV-7 


000160 


104004 


012702 


001374 


00£077 
012777 
012777 
004537 
000012 
004537 


104010 
000076 


004537 


104010 
000066 


012702 
012701 


104004 


012737. 
011237 
023737 
001406 


010237 


104462 
000010 
011645 
014364 


104010 
000010 
005722 
005301 
001357 


104005 


002652 
000200 
125252 


156462 
177600 
002652 
020254 


021074 


020012 


002652 
000200 


125252 
002160 
002156 


002152 


03-NOV-77 
7 09: 54 


156456 
156444 


002156 
002160 


10:02 PAGE 83-39 


K 5 


XXTEST 10%% - CHECK DIRECTION OF WRITE NPR 


23: 


34: 


53: 


6S: 


10001$: 


. WORD 


BGNSEG 
ENT 


ENDSEG 


MT 
ENDSEG 


L10037-. 
CSBSEG 


BUF, RZ 
#128. ,R1 
#125252, (R2)+ 
Ri 
3$ 
ORLOA 
#-128. , ORLMP 
#BUF. ORLBA 
RS. LOFUNC 
RS, WTCRDY 

G 


CSESCAPE 
10000$-. 


RS. CHERR 
S) 


EG 
CSESCAPE 
10000$-. 


#BUF,RZ 
#128. .R1 


“" 
m 


CSBSEG 


#125252, GODAT 
(RZ). BODAT 
germs: 


;WRITE BUFFER FOR WRITE OPERATION 
ONE SECTOR'S WORTH 


;%%START OF SEGMENT%% 


+WRITE BUFFER 


+DON 
;NO, 


LOAD DISK ADDRESS 
+WORD CO 


—? 


GO BACK 


UNT 


+BUS ADDRESS 


;LOAD THE FUNCTION IN NEXT WORD 
*+WRITE SOME DATA 


;WAIT FOR IT TO FINIS 


+ CHECK FOR FL: LOE, 


+ CHECK FOR FL: LOE, 


H 
ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 


ELSE EXIT SEG 


+SET UP TO CHECK BUFFER . 


CHECK 128 WORDS 


+%%START OF SEGMENT%% 


DATA SHOULD BE 125252 
+LOAD DATA INTO BODAT 
+1S 1T OKAY? 


> YES. 


CONT | NUE 


R2. TMP1 ;LOAD MEMORY LOCATION OF FAILURE 


8. ,EM26. ERR8 
cr: 


EN26 
ERR8 


SEG 


CSESCAPE 
10001$-. 


CSESEG 


+ CHECK FOR FL: LOE. 


>NEXT! 


; DONE 


+ NO, 


? 
GO BACK 


ELSE EXIT SEG 


+%%END OF SEGMENT%% 


;%%END OF SEGMENT%% 


SEQ 0062 


OUTERR 


DZRLER. P 


— wl nt 21 


O3-NOV-77 


023702 


023704 


023706 
023706 


023706 


023706 
023712 
023720 
023722 


023724 


023730 
023730 


023732 
023732 
023740 
023744 


023752 


024032 


104005 


104001 


004737 
104032 


000134 
005037 
104004 


012777 
005077 
013777 


004537 


014210 


03-NOV-77 
09: 54 


021154 


002152 


177777 
156272 
002152 


020254 
021074 


002152 
000002 
002220 
002156 


156300 
156262 


002156 
002156 
002160 
002160 


L 5 


10:02 PAGE 83-40 


RETEST 10%% - CHECK DIRECTION OF WRITE NPR SEQ 0063 
100005: 
ENT CSESEG 
ENDTST ;KXEND OF TESTX% 
L10037: 
ENT CSETST 
.SBTTL XKXTEST 11%% - CHECK FULL RLBA INCREMENT 
BGNTST ;RXSTART OF TEST&% 


STARS 
; eee tr an caL luca at te at ee fal 


TEST THAT THE RLBA WILL INCREMENT, WE DO NOT DO A 

+;BIT INCREMENT WE CHECK THAT EACH BIT WILL TOGGLE O TO 1 
;AND 1 TO 0. WE DO CHECK ALL BITS EVEN IF ALL MEMORY 

; 1S NOT AVAILABLE. (WE IGNORE NON-EXISTANT MEMORY ERRORS). 
;WE USE THE SAME DISK ADDRESS (RANDOM) AND A 1 WORD TRANSFER. 


STARS 
js RERAAAAARAARARARAAARAAAAAA KAA AAA AAA AAA AAA AAA AAA AAA AAA AA ATTA TS 


JSR PC, HDHOME ;HEADS OVER TRACK O 
CKERFG ;HEADS GO HOME OKAY 
EMT CSEXIT 
.WORD 1L10040-. 
CLR TMP 1 ; CLEAR LOCATION 
BGNSEG ;%%START OF SEGMENT%% 
EMT CSBSEG 
35: 
MoV #-1, ARLMP ; ONLY ONE (1) WORD 
CLR @RLDA ;LOAD DISK ADDRESS 
MoV TMP 1, ARLBA +BUS ADDRESS 
1 RS. LOF UNC ;LOAD THE FUNCTION IN NEXT WORD 
WRI 
JSR RS. WTCRDY ;WAIT FOR WRITE TO FINISH 
ESCAPE SEG ; CHECK FOR FL: LOE, ELSE EXIT SEG 
ENT CSESCAPE 
.WORD 10000$-. 
4$: MoV THP 1, GODAT ;SET UP EXPECTED RLBA 
ADD #2. GDDAT +PREVIOUS RLBA+2Z 
MoV E. BA. BODAT >READ RLBA 
CMP GODAT. BODAT ;WAS IT UPDATED PROPERLY? 
BEQ 5$ > YES, CONTINUE 
ERROF 9..,EN30.ERRY >BA INCREMENT ERROR 
TRAP TSERCODE 
.WORD 9 
.WORD EN30 
.WORD ERRY 
53: ESCAPE SEG ; CHECK FOR FL: LOE. ELSE EXIT SEG 





OUTERR MACY11 3061046) O3-NOV-77 10:02 PAGE 83-41 


DZRLEA. Pil O3-NOV-77 09: 54 RXTEST 114% - CHECK FULL RLBA INCREMENT SEQ 0064 
(3) 024032 104010 EMT CSESCAPE 
mS 024034 000020 .WORD 100005-. 
4406 024036 006337 002152 ASL THP1 + NEXT _PATTERN TO TEST RLBA 
4407 O24042 103404 BCS 6$ NE? 
4408 O24044 052737 000002 002152 BIS #B1T1, TMP ;NO, SET IN BIT 1 
nee 024052 000727 BR 3$ +GO CHECK NEXT. 
me 024054 65: END TEST 
4413 024054 ENDSEG +%%END OF SEGMENT%% 
(3) 024054 10000$: 
(3) 024054 104005 ENT CSESEG 
4414 024056 ENDTST +*XEND OF TESTXX 
(3) 024056 L10040: 
min 024056 104001 EMT CSETST 
be .SBTTL X&XTEST 12%% - BA BIT 16 INCREMENT 
by | 024060 BGNTST +HXSTART OF TEST&% 
4420 024060 STARS 
(2) jj MEXAAAAARAAAAAARAAAAAAAAAA AAA AAA AAA AA AAA AAA AAA AA AAAS AAA AAAS 
4421 ;CHECK THAT BA BIT 16 WILL INCREMENT. WE WILL LOAD THE 
4422 +RLBA WITH 177776 AND ISSUE A ONE WORD WRITE WE THEN 
4423 CHECK BA BIT 16 TO SET. BA 17 TO STAY A O AND THE RLBA 
4424 +TO GO TO ZERO 
4425 024060 STARS 
= 3s REXAAAAAAAAAAAAAAAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AA AAA AA AA AL 
4426 
4427 
4428 024060 004737 021154 JSR PC. HDHOME +HEADS OVER TRACK O 
4429 024064 CKERFG +HEADS GO HOME OKAY 
(4) 024072 104032. EMT CSEXIT 
i 024074 000160 .WORD L10041-. 
44 
4431 024076 BGNSEG +%%START OF SEGMENT%% 
(3) 624076 104004 EMT CSBSEG 
4432 
4433 024100 x_ 
4434 024100 012777 177776 156126 MoV #177776,9RLBA ;SET MAX BA TO INC. BAI6 
4435 024106 005037 002252 CLR XMEM ;WE DON'T WANT TO LOAD ANY EA 
_ 4436 024112 012777 177777 156120 MoV #-1. ORLMP ONE WORD TRANSFER 
4437 024120 005077 156112 CLR @RLOA 
4438 024124 004537 020254 JSR RS. LDOFUNC +LOAD THE FUNCTION IN NEXT WORD 
4439 024130 000012 WRITE 
4440 024132 004537 021074 JSR R5, WTCROY ;WAIT FOR WRITE TO FINISH 
4441 024136 ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 024136 104010 EMT CSESCAPE 
(3) 024140 000112 .WORD 100005-. 
4442 024142 032737 020000 002216 BIT @NXM.E. CS s;NON-EXISTANT MEMORY ERROR? 
4443 024150 001002 BNE 3$ *YES. CONTINUE 
444y 
4446 024152 004537 020012 JSR RS. CHERR CHECK CNTLR FOR ERRORS 
4446 024156 3$ ESCAPE SEG ;CHECK FOR FL: LOE. ELSE EXIT SEG 


(3) 024156 104010 EMT CSESCAPE 


OUTERR 


DZRLEA. 


MACY11 30(1046) 


03-NOV-77 


Pil O3-NOV-77 09: 54 


024160 


024162 
024170 


024172 
024172 
024174 
024176 
024200 


024202 
024202 


024204 
024212 


024214 
024214 
024216 
024220 
024222 


024224 
024224 


024226 
024232 
024240 
024242 
024242 
024244 
024246 
024250 


024252 
024252 
024252 
024252 
024254 


024254 
024254 


024256 
024256 


024256 


000072 


032737 
001004 


104462 
000012 
012025 
014044 


104006 


032737 
001404 


104462 
000013 
012070 
014044 


104006 
005037 
013737 
001404 
104462 
000014 


012135 
014210 


104005 


104091 


000020 002216 


000040 002216 


002156 
002220 002160 


10:02 PAGE 83-42 


XXTEST 124% - BA BIT 16 INCREMENT 


. WORD 


4$: CKLOOP 
ENT 


5S: CKLOOP 
ENT 


6$: 
ENDSEG 
ENT 


100008: 
ENOTST 
L10041: 

ENT 
. SBTTL 
BGNTST 


STARS 


10000$-. 
#B8A16.E.CS 

4§ 

10. ,EM31,ERRO 
TSERCODE 

10 

EM31 

ERRO 

CSCLP1 
#BA17,E.CS 

5$ 

11. ,EM32, ERRO 
TSERCODE 

11 

EN32 

ERRO 

CSCLP1 


GODAT 
E. BA. BODAT 
6$ 


12. ,EM33,ERRY 
+ eae 


EN33 
ERR4 


CSESEG 


CSETST 


+DID BAI6 SET? 
+YES, CONTINUE 


+BA 16 DID NOT INCREMENT 


+DID BAI? SET ALSO? 
+NO, GOOD CONTINUE 


+BA 17 GOT CARRIED AWAY 


+CHECK THAT BAI5-BAO IS CLEAR 
READ BA 

+ 1S BA ZERO? 

+BA SHOULD BE ZERO 


+%ZEND OF SEGMENT%% 


;KXEND OF TESTXX 


AXTEST 134% - BA BIT 17 INCREMENT 


sHXSTART OF TESTXX 


+ MEXAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA ATLA AAA AA AAA AA AAA AAA AAAS 


+CHECK THAT BA BIT 17 WILL INCREMENT. 


WE WILL LOAD THE 


+RLBA WITH 177776 AND BA 16 SET, WE WILLISSUE A ONE WORD 


7 WRITE. 


ee - BAO TO CLEAR. 
js MAEXAAAAAAAAA AAA AAA AA AAA AREA AAA AAA AA AAA AA AAA AAA AAA AAA AAA AAAS 


WE THEN CHECK BA17 TO SET. BAI6 TO CLEAR AND 


SEQ 0065 


OUTERR 


OZRLEA. 


Pil 


MACY11 3 
0 


024256 
024262 
024270 
024272 


024274 
024274 


024276 
024276 
024304 
024312 
024320 
024324 
024330 
024332 
024336 
024336 
024340 
024342 
024350 


024352 
024356 
024356 
024360 


024362 
024370 


024372 
024372 
024374 
024376 
024400 


024402 
024402 


024404 
024412 


024414 
024414 


024426 
024432 
024440 


0(1946) 


3-NOV-77 


004737 


104032 
000162 


104004 


012777 
012737 
012777 
005077 
004537 
000012 
004537 


104010 
000112 
032737 
001002 


004537 


104010 
000072 


032737 
001004 


104462 
000015 
012176 
014044 


104006 


032737 
001404 


005037 
013737 
001404 


03-NOV-77 
09: 54 


021154 


177776 
000020 
177777 
155712 
020254 


021074 


020000 


020012 


000040 


000020 


002156 
002220 


155730 
002252 
155720 


002216 


002216 


002216 


002160 


10:02 PAGE 83-43 


B 6 


XXTEST 134% - BA BIT 17 INCREMENT 


23: 


3: 


4S: 


5S: 


CKLOOP 
ENT 


PC, HOHOME 
CSEXIT 
L10042-. 
CSBSEG 


#177776. dRLBA 
#BA16, XMEM 
#-1, ORLMP 
@RLOA 

RS. LOFUNC 
RS, WTCRDY 
SEG 
CSESCAPE 
10000$-. 
#NXH.E. CS 
3$ 

RS, CHERR 
SEG 


CSESCAPE 
10000$-. 


#B8A17,£.CS 
4S 

13. -EM34, ERRO 
TSERCODE 

13 

EN34 

ERRO 

CSCLP1 
#BA16,E. CS 

5% 

14. ,EM35, ERRO 
TSERCODE 


EN35 
ERRO 


CSCLP1 


GODAT 
E. BA. BODAT 
6$ 


+HEADS OVER TRACK O 
;HEADS GO HOME OKAY 


+ %%START OF SEGMENT%% 


+SET MAX BA TO INC. BAI6 
+SET BAI6 IN RLCS 
ONE WORD TRANSFER 
+LOAD THE FUNCTION IN NEXT WORD 
;WAIT FOR WRITE TO FINISH 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 
;NON-EXISTANT MEMORY ERROR? 
+ YES, CONTINUE 


+ CHECK CNTLR FOR ERRORS 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


DID BAI7SET? 
+ YES, CONTINUE 


+BA 17 DID NOT SET 


>D10 BA16 SET ALSO? 
NO. GOOD CONTINUE 


;BA 16 DIDN'T KNOW WHEN TO QUIT. 


CHECK THAT BAI5-BAO IS CLEAR 
READ BA 
+ 1S BA ZERO? 


SEQ 0066 


OUTERR 


DZRLEA. 


Pil 


MACY11 30(1046) 
O3-NOV-77 O09: 54 


024442 
024442 
O24444 
O24446 
024450 


024452 


024452 
024452 
024452 
024454 
024454 
024454 


024456 


024456 


024456 


024456 
024462 
024470 
024472 


024474 
024474 


024476 


104462 
000017 
012306 
014210 


104005 


104001 


004737 
104032 
000132 


104004 


012746 


013700 
104036 


03-NOV-77 


021154 


000340 
021146 
002122 
000003 


000010 
002132 
002652 
155474 
177777 
020254 


021074 
002122 


155476 
155470 


10:02 PAGE 83-44 


C 6 


RXTEST 134% - BA BIT 17 INCREMENT 


65: 


100008: 


ENDTST 


L 10042: 


. SBTTL 
BGNTST 


STARS 


ENDSEG 
ENT 


EMT 


15.,.EM36.ERR4  ;BA SHOULD BE ZERO 
TSERCODE 


15 
EN36 
ERR4Y 

+%2END OF SEGMENT%% 
CSESEG 

+¥XEND OF TESTXX 
CSETST 


KXTEST 14x%x - TEST READ NPR INTEGRITY 


;HXSTART OF TESTXX 


js REXAAAAARAAARAAAAAAAA AKA AA AAA AAA AA AAA AAA AAA AA AA AAA AA AAA AAAS 
;CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE UNIBUS 
IR a LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS 


STARS 
35 RXRAAAAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAI ARATE 


18: 


JSR 
CKERFG 
EMT 
. WORD 
BGNSEG 
EMT 


SETVEC 
MoV 


PC, HDOHOME +HEADS OVER TRACK 0 

+HEADS GO HOME OKAY 
CSEXIT 
L10043-. 

+%%START OF SEGMENT%% 

CSBSEG 
ERRVEC, #TRPHAN. #340 ;SET UP VECTOR 
#340, - (SP) 


#TRPHAN, - (SP) 
ERRVEC, -(SP) 


#3, -(SP) 

CSSVEC 

#10. SP 

TRPFLG *CLEAR TRAP PLAY 
#BUF, ARLBA LOAD BA 

aRLDA :LOAD DA 

#-1, ORLMP LOAD WC 

RS, LDFUNC ;LOAD THE FUNCTION IN NEXT WORD 
RS. WTCROY ; 

ERRVEC CLEAR OUT VECTOR 
ERRVEC, RO 

CSCVEC 


SEQ 0067 


OUTERR 


DZRLEA. 


Pil 


MACY11 wl te 2 
O3-NOV-77 


024570 


024602 


024604 
024610 
024612 
024612 
024614 
024616 
024620 
024622 


024622 
024622 
024622 


024624 
024624 
024624 


024626 
024626 


024626 


024626 
024632 
024640 
024642 


024644 
024644 


024646 
024654 
024660 
024666 


024674 
024700 


104010 
000030 
004537 


104010 
000020 


005737 
001404 


104462 
00c021 


012777 
014044 


104005 


104001 


004737 
104032 
000064 
104004 
012737 


012777 


004537 
000014 


03-NOV-77 
09: 54 


020012 


002132 


021154 


001750 
155356 
177600 
002652 


020254 


002150 


155352 
155340 


73: 


10000S: 


ENDTST 


L1004 3: 


. SBTTL 
BGNTST 
STARS 


D 6 


10:02 PAGE 83-45 
XXTEST 144% - TEST READ NPR INTEGRITY 


ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
ENT CSESCAPE 
WORD 10000$-. 
JSR RS, CHERR + CHECK CNTLR FOR ERRORS 
ESCAPE SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 


ENT CSESCAPE 
.WORD 10000S-. 


TST TRPFLG 
7$ 


ERROF 17.,EM52,ERRO 
TRAP ee 


. WORD - 
.WORD EN52 
.WORD = ERRO 
ENDSEG 


ENT CSESEG 


ENT CSETST 
XXTEST 15%% - READ FUNCTION 


+010 TRAP OCCUR? 
+NO, OKAY 
+ YES, PRINT ERROR 


+%%END OF SEGMENT%% 


;HXEND OF TESTXX 


+XXSTART OF TESTXX 


Se et eee an 2 eee 
REA 


CHECK OF THE READ FUNCTION. 


WE WILL FIRST DO A 


;HEADER TO FIND OUT WHERE WE ARE AND THEN ISSUE 


7A FULL SECTOR READ. 


ANY ERRORS 


STARS 


WAIT FOR READY AND CHECK FOR 


ji RRARAAAAAAAAAAAARA AAR AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAS 


JSR PC. HDHOME +HEADS OVER TRACK O 
CKERFG +HEADS GO HOME OKAY 


ENT CSEXIT 
~WORD L10044-. 


ENT CSBSEG 
MoV #1000. . THPO 


+ %%START OF SEGMENT%% 


CLR @RLDA +LOAD DISK ADDRESS 
MoV #-128. , ARLMP +SET WORD LENGTH 


MOV #BUF, aRLBA 
JSR RS. LOF UNC 


READ ;READ 


+SET BUS ADDRESS 


;LOAD THE FUNCTION IN NEXT WORD 


SEQ 0068 


OUTERR 


DZRLEA. 


Pil 


MACY11 30(1046) 
03-NOV-77 


024702 


024710 
024712 


024716 
024722 


024726 


024730 
024730 


024730 


024730 
024734 
024742 
024744 


024746 
024746 


024750 


025016 
025022 


025024 


004537 


104010 
000014 


004537 
005337 
001354 
104005 


104001 


004737 
104032 
000106 
104004 
005037 
005077 


012777 
012777 


012700 


012700 
104041 


005737 


—E 6 
O3-NOV-77 10:02 PAGE 83-46 
9: 54 


;WAIT FOR CONTROLLER READY 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 


+%%END OF SEGMENT%% 


:4XEND OF TESTX% 


+ XXSTART OF TEST*X 


STARS 
3p RXXAAAAAAAAARAAAAAAAAAA AAA AKA AAA AA AAA AA TATA AAA AA AAAS AAAS AAT AE 
CHECK OF THE READ FUNCTION UNDER INTERRUPT CONTROL, WE WILL 


js RXXKAAAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA A AAA AAS 


+HEADS OVER TRACK O 
*HEADS GO HOME OKAY 


+%2%START OF SEGMENT%% 


;CLEAR INTERRUPT INDICATOR 
SET DISK ADDRESS 

SET UP WORD COUNT 

SET UP BUS ADDRESS 


+PRIORITY TO O 


+LOAD THE FUNCTION IN NEXT WORD 
*READ UNDER INTERRUPT 
;WAIT FOR INTERRUPT 


;PRIORITY TO 7 


DID INTERRUPT OCCUR? 


0 XXTEST 15%% - READ FUNCTION 
021074 JSR RS. WTCROY 
ESCAPE SE 
ENT CSESCAPE 
.WORD 10000$-. 
020012 JSR RS. CHERR 
002150 DEC TMPO 
BNE 1$ 
ENDSEG 
100008: 
ENT CSESEG 
ENDTST 
L10044: 
EMT CSETST 
.SBTTL X&TEST 16% - READ FUNCTION INTERRUPT 
BGNTST 
; ISSUE A READ HEADER TO GET POSITION AND THEN READ 
3A FULL SECTOR WAITING FOR THE INTERRUPT. CHECK FOR 
ERRORS ON INTERRUPT. 
STARS 
021154 JSR PC. HOHOME 
CKERFG 
EMT CSEXIT 
.WORD L10045-. 
BGNSEG 
ENT CS$BSEG 
002134 CLR INTFLG 
155256 CLR aRLDA 
177600 155252 Mov #-128. , ARLMP 
002652 155240 MoV #BUF, ARLBA 
SETPRI #PRIOO 
000000 MoV #PR100,R0 
ENT CSSPRI 
020254 JSR R5, LOFUNC 
READ! INTEN 
021074 JSR RS, WTCRDY 
CKLOOP 
ENT CSCLP1 
SETPRI #PRI07 
000340 MOV #PR107,R0 
ENT CSSPRI 
002134 TST INTFLG 


SEQ 0069 


F 6 
OUTERR — 30(1046 


) Q3-NOV-77 10:02 PAGE 83-47 
O3-NOV-77 O09: 54 


DZRLEA. Pil KXTEST 16%% - READ FUNCTION INTERRUPT SEQ 0070 
<i 025030 001004 BNE 1$ + YES-BRANCH NO-REPORT 
463? 025032 ERROF 19.,EM4,ERRO ;READ DID NOT INTERRUPT 
(3) 025032 104462 TRAP TSERCODE 
(5) 025034 000023 .WORD 1 
(5) 025036 010407 ~WORD EMMY 
(5) 025040 014044 .WORD ERRO 
4638 025042 15: CKLOOP + CHECK FOR LOOP 
my 025042 104006 EMT CSCLP1 
iat 025044 004537 020012 JSR RS. CHERR + CHECK CNTLR FOR ERRORS 
4642 025050 ENDSEG ;%%END OF SEGMENT%% 
(3) 025050 10000$: 
(3) 025050 104005 EMT CSESEG 
4643 025052 ENDTST +XXEND OF TEST&X 
(3) 025052 L10045: 
oa 025052 104001 ENT CSETST 
ee .SBTTL XXTEST 17% - CHECK READ NPR DIRECTION 
ow 4 025054 BGNTST +¥XSTART OF TESTXX 
4649 025054 STARS 
(2) 3s REXAAAAAAAAARAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AEX 
4650 ;CHECK THAT THE READ FUNCTION ACTUALLY READS (INTO MEMORY) 
4651 ;WE WILL WRITE A PATTERN INTO MEMORY AND THEN ISSUE 
4652 3A READ TO OVERLAY THAT PATTERN. AFTER THE READ 
4653 ;WE CHECK TO SEE IF THE WRITTEN PATTERN HAS CHANGED. 
4654 ; 1F NOT WE ISSUE IT AGAIN AT THE SAME SECTION AFTER 
4655 ;HAVING MODIFIED OUR PATTERN IN MEMORY (SINCE THERE IS 
4656 ONE CHANCE THAT THE DISK COULD HAVE OUR PATTERN). AFTER 
4657 ; THE SECOND READ WE CHECK THE BUFFER AGAIN. IF IT'S 
4658 NO CHANGED WE REPORT AN ERROR 
4659 025054 STARS 
(2) js REXAAAAAAAAARAAAA AAA AA AAA AAA AAA AAA AAA AAA ALAA AAA AAA AAA AAA AAAS 
4660 
4661 
4662 025054 004737 021154 JSR PC, HOHONME +HEADS OVER TRACK 0 
4663 025060 CKERFG +HEADS GO HOME OKAY 
(4) 025066 104032 EMT CSEXIT 
(4) 025070 000156 .WORD L10046-. 
4664 
4665 025072 BGNSEG +%%START OF SEGMENT%% 
Herd 025072 104004 EMT CSBSEG 
4 
4667 025074 012737 123456 002150 MoV #123456. THPO +SET PATTERN TO WRITE 
4668 025102 005037 002152 CLR THP 1 +CLEAR PASS INDICATOR 
4669 025106 012700 002652 1S: MOV #BUF,RO +SET UP BUFFER BEGINNING 
4670 025112 012701 000200 nov #128. ,R1 
4671 025116 013720 002150 23. MoV THPO. (RO)+ *WRITE BUFFER 
4672 025122 005301 DEC R1 ;DONE?? 
4673 025124 001374 BNE 2$ +NO. GO BACK 
4674 025126 005077 155104 CLR @RLOA +LOAD DISK ADORESS 
4675 025132 012777 177600 155100 MOV #-128.. ORLMP +SET WORD COUNT 


4676 025140 012777 002652 155066 MOV BUF. ARLBA +LOAD BUS ADDRESS 


OUTERR 
DZRLEA 


MACY11 30(1046) 
03-NOV-7 


Pil 
025146 
025154 


025170 


025172 
025176 
025176 
025200 


025202 
025206 
025212 


025214 
025220 


025222 
025226 
025232 


025234 
025234 
025236 
025240 
025242 


025244 
025244 
025244 
025244 
025246 


025246 
025246 


025250 
025250 


025250 


025250 


012737 


004537 
000014 
004537 


104010 
000054 


004537 


104010 
o0co44 


012702 
022237 
001014 


005737 
001005 


005237 


005137 
000725 


104462 
006024 
010446 
014436 


104005 


104001 


004737 


7 09 


03-NOV-77 
: 54 


002652 002156 
020254 
021074 


020012 


002652 
002150 


002152 


002152 
002150 


021154 
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XXTEST 17%% - CHECK READ NPR DIRECTION 


4$: 


5S: 


6S: 


100008: 


ENDTST 


L10046: 


. SBTTL 
BGNTST 
STARS 


MOV 


JSR 
READ 


JSR 
ESCAPE 
EMT 
. WORD 


ENDSEG 
ENT 


EMT 


BUF, GODAT 
RS, LOFUNC 
RS, WTCROY 
SEG 
CSESCAPE 
10000$-. 
RS, CHERR 


) 
CSESCAPE 
10000$-. 


#BUF,.R2 


(R2)+, TMPO 
6$ 


TMP 1 
5$ 

TMP 1 
TMPG 


1$ 


20. . EMS, ERRO 
TSERCODE 
20 


ENS 
ERR 


CSESEG 


CSETST 


+FOR ERROR PRINT 
;LOAD THE FUNCTION IN NEXT WORD 


;RE 
;WAIT FOR CONTROLLER READY 
; CHECK FOR FL: LOE. ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


SET TO START COMPARING DATA 
+D10 DATA CHANGE? 
*YES, CHECK FOR END 


’ 


;DATA DION'T CHANGE. CHECK 
+ 1F 1ST OR 2ND TIME? 
;2ND-REPORT 1ST-TRY AGAIN 
+ INC PASS COUNT 

> COMPLIMENT PATTERN 

+GO DO IT AGAIN 


;READ DID NOT MODIFY MEMORY 


*+%%END OF SEGMENT%% 


;HXEND OF TESTES 


XXTEST 18%x - PROPER INCREMENT OF RLBA ON READ 


;HXSTART OF TEST&X 


js RERAAAAARATATARAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAT AY 
;CHECK THAT THE RLBA WILL INCREMENT WITH THE REA 


; THE RLBA SHOULD CONTAIN “BUF +256. ™ 


; READ. 


D 
AFTER A FULL SECTOR 


STARS 
js RERRAAAAAAAAT ARAL AAA TAA AAA AAA AAA AAA ATA AAA AAT AAA AAA AAA AAA TTS 


JSR 


PC, HDHOME 


+HEADS OVER TRACK 0 


SEQ 0071 


OUTERR 


MACY11 30(1046) 
DZ2RLEA. Pil 


025254 
025262 
025264 


025266 
025266 


025270 
025274 
025302 
025310 
025316 


025324 
025330 
025332 
025336 
025336 
025340 


025342. 


025346 
025346 
025350 
025352 
025360 
025366 


025370 
025370 
025372 
025374 
025376 


025400 
025400 
025400 
025400 
025402 


025402 
025402 


025404 
025404 


025404 


104032 
000116 


104004 


005077 
012777 
012777 
012737 
062737 


004537 
000014 
004537 


104010 
000040 


004537 


104010 
000030 
013737 
023737 
001404 


104462 
000025 
010512 
014210 


104005 


104001 


154742 
002652 
177609 
002652 
000400 


020254 
021074 


020012 


002220 
002160 


03-NOV-77 
O3-NOV-77 09: 54 


154732 
154730 
002156 
002156 


002160 
002156 


10:02 PAGE 83-49 


H 6 


KKTEST 18%% - PROPER INCREMENT OF RLBA ON READ 


18: 


10000S: 


ENDOTST 


L10047: 


. SBTTL 
BGNTST 


CKERFG 
ENT 
. WORD 
BGNSEG 
ENT 


ENDSEG 
EMT 


EMT 


CSEXIT 
L10047-. 


CSBSEG 


@RLOA 

BUF, ARLBA 
#BUF. GODAT 
#256. , GODAT 


R5. LOFUNC 
RS. WTCRDY 
SEG 


CSESCAPE 
100005-. 


RS. CHERR 


CSESCAPE 
10000$-. 

E. BA. BODAT 
elcid 
1 


21. ,EM6, ERRY 
i 


EMG 
ERR4Y 


w 
m 
o 


CSESEG 


CSETST 


HEADS GO HOME OKAY 


+%%START OF SEGMENT%% 
+SET UP DISK ADDRESS 
+SET UP BUS ADDRESS 
WORD COUNT 
;FORM EXPECTED BUS ADDRESS 
;AFVER READ 


;LOAD THE FUNCTION IN NEXT WORD 


+; READ 
;WAIT FOR CONTROLLER READY 
;CHECK FOR FL: LOE. ELSE EXIT SEG 


+ CHECK CNTLR FOR ERRORS 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


;READ "RLBA' FOR PRESENT ADDRESS 
+DID ‘BA’ INCREMENT PROPERLY? 
; YES, CONTINUE 


+BA DID NOT INCREMENT PROPERLY 


;%%END OF SEGMENT%% 


>¥XEND OF TESTXX 


XXTEST 194% - PROPER INCREMENT OF RLDA ON READ 


sHXSTART OF TEST&X 


STARS 

js MERAAAAAAAAATAAAAAKA LARA AAA AAA AAA AAR A AAA AAA AAA AAA AAA AAA ATE 
; CHECK THAT THE RLDA INCREMENTS BY ONE AFTER A 

;FULL SECTOR READ. WE FIRST READ A HEADER TO FIND 


;OUT WHERE WE ARE. 


THEN ISSUE A READ AFTER 


ae THE RLDA SHOULD BE RLDA (START) + 1 
jj MERRAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ATA EAS 


SEQ 0072 


OUTERR 


DZRLEA. 


Pil 


MACY11 30(1046) 
O3-NOV-77 


025404 
025410 
025416 
025420 


025422 
025422 


025424 
025430 
025436 
025442 
025450 


025456 
025462 
025464 
025470 
025470 
025472 


025474 
025500 
025500 
025502 


025504 
025512 
025520 


025522 
025522 
025524 
025526 
025530 


025532 


025532 
025532 
025532 
025534 
025534 
025534 


025536 
025536 


004737 


104032 
000114 


104004 


005037 
013777 
005237 
012777 
012777 


004537 
000014 
004537 


104010 
c00040 


004537 


104010 
000030 


013737 
023737 
001404 


104462 
000026 
010566 
014210 


104005 


104001 


09:5 
021154 


002155 
002156 
002156 
177600 
002652 


020254 
021074 


020012 


002222 
002156 


— 


154600 


154570 
154556 


002160 
002160 


10:02 PAGE 83-50 


XXTEST 19%% - PROPER INCREMENT OF RLDA ON READ 


1$: 


100008: 


ENOTST 


L10050: 


. SBTTL 
BGNTST 


JSR 
CKERFG 
ENT 
. WORD 
BGNSEG 
ENT 


ENDSEG 
EMT 


EMT 


PC, HDHOME 
CSEXIT 
L10050-. 


CSBSEG 


GODAT 
GODAT. @RLDA 
GODAT 
#-128. , ORLMP 
BUF, dRLBA 
RS. LDFUNC 
RS, WTCRDY 

G 


CSESCAPE 
10000$-. 


RS. CHERR 
G 


CSESCAPE 
10000$-. 


E. DA, BODAT 
phate 
1 


22.,EN7, ERPY 
TSERCODE 
22 


EN? 
ERRY 


uw 
m 


wn 
m 


CSESEG 


CSETST 


s+HEADS OVER TRACK 0 
HEADS GO HOME OKAY 


s%%START OF SEGMENT%% 


+ SETUP DISK ADDRESS 
+; CREATE EXPECTED SECTOR 
+WORD COUNT 
+ SETUP BUS ADDRESS 
+LOAD THE FUNCTION IN NEXT WORD 


+ READ 
;WAIT FOR CONTROLLER READY 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


;CHECK CNTLR FOR ERRORS 
>CHECK FOR FL: LOE. ELSE EXIT SEG 


READ DISK ADDRESS 
*DID SECTOR INCREMENT PROPERLY 
+ YES. BRANCH NO, REPORT ERROR 


DISK ADDRESS DID NOT INCREMENT 


>%%END OF SEGMENT%% 


;KXEND OF TESTXX 


XKTEST 204% - FORCE HEADER NOT FOUND WITH READ 


:¥XSTART OF TESTXX 


STARS 
js RERAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AY 


FORCE HEADER NOT FOUND ERROR TO OCCUR. 


THIS 1S DONE 


;BY SETTING SECTOR 40 OF THE RLDA AND ISSUING A 
SECTOR 4O DOES NOT EXIST ON THE RLO1 PACK 
; THEREFORE HOR NT FOUND SHOULD SET 


; READ. 


SEQ 0073 


OUTERR 
DZRLEA 


MACY11 30(104 


Pil 
025536 


025536 
025542 
025550 
025552 


025554 
025554 


025556 
025564 
025572 


025600 
025604 
025606 
025612 
025612 
025614 


025616 
025624 
025632 
025640 


025642 
025642 
025644 
025646 
025650 


025652 
025652 
025652 
025652 
025654 


025654 
025654 


025656 


025656 


025656 


004737 


104032 
000102 


104004 


012777 
012777 
012777 


004537 
000014 
004537 


104010 
000036 


013737 
042737 
022737 
901404 


104462 
000027 
010643 
014044 


104005 


104091 


021154 


000050 
002652 
177777 


020254 
021074 


002216 
001777 
112000 


J 6 
RETEST 20%% - FORCE HEADER NOT FOUND WITH READ 


6) O3-NOV-77 10:02 PAGE 83-51 
O3-NOV-77 09: 54 


STARS 
+s MRRAAAAAAAAAAAAAA AAA AAA AA AAA AA AAA A AAAS AAA AAA AAA AAA AAS aS 


JSR PC, HOHONE s+HEADS OVER TRACK O 

CKERFG +HEADS GO HOME OKAY 

ENT CSEXIT 

.WORD L10051-. 

BGNSEG i %%START OF SEGMENT%% 

EMT CSBSEG 
154452 MoV #40. . ARLOA ; INSURE NOT TO FIND HEADER BY 
154442 MOV #BUF, ARLBA +SETTING SECTOR 4O OF CYL. ADOR. 
154440 MoV #-1, ORLMP WORD COUNT 

JSR RS. LDF UNC +LOAD THE FUNCTION IN NEXT WORD 

READ + READ 

JSR RS, WTCRDY ;WAIT FOR CONTROLLER READY 

ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 


ENT CSESCAPE 
.WORD 100005-. 


002150 MOV E. CS. THPO +GET RLCS 

002150 BIC #1777, TMPO ; SAVE ERROR BITS 

002150 CMP SBITIS'BIT1Z2'BIT10. TMPO ;HOR NOT FOUND SET. 
BEQ 1$ ;YES. CONTINUE 


ERROF 23.,EM10,ERRO ;HEADER NOT FOUND WOULD NOT SET 
TRAP + cing 


. WORD 

.WORD EM10 

.WORD = ERRO 
15: 

ENDSEG ;%%END OF SEGMENT%% 
10000S: 

ENT CSESEG 
ENDTST ;KXEND OF TESTX% 
L10051: 


EMT CSETST 
.SBTTL TEST 21% - FORCE HEADER NOT FOUND WITH READ INTERRUPT 
BGNTST ;¥XSTART OF TEST&% 


STARS 

5 RERAAAAAAAAAARAL AAA TATA AAA AAA AAA AAA AA AAA AAA AAA AAA AA EAA ATE 
; TEST THAT HEADER NOT FOUND ERROR WILL GENERATE AN INTERRUPT 

ON OCCURANCE. HEADER NOT FOUND WILL BE FORCED BY SETTING 
;SECTOR 40 OF RLOA AND ISSUING A READ 


STARS 
jj MERAAAAAAAAAAAAAATAA AAA AAA AAA AAA AA AA AAA AAAAAA AAA AAA AAA AAA AAS 


SEQ 0074 


OUTERR 


DZRLEA. 


MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-52 
Pil O3-NOV-77 09: 54 

025656 004737 021154 JSR PC, HOHONE 
025662 CKERFG 

025670 104032 ENT CSEXIT 
025672 000142 .WORD 1L10052-. 
025674 BGNSEG 

025674 104004 ENT CSBSEG 
025676 SETPRI #PRIOO 
025676 012700 000000 MOV #PR100,R0 
025702 104041 EMT CSSPRI 
025704 005037 002134 CLR INTFLG 
025710 012777 O00050 154320 MOV #40. , ARLOA 
025716 012777 002652 154310 MOV #BUF. ARLBA 
025724 012777 177777 154306 MOV #-1, ORLMP 
025732 004537 020254 JSR RS, LOF UNC 
025736 000114 READ! INTEN 

025740 004537 021074 JSR RS, WTCRDY 
025744 CKLOOP 

25744 104006 ENT CSCLP1 
25746 SETPRI #PRIO7 

025746 012700 000340 MOV #PRI07,R0 
025752 104041 ENT CSSPRI 
025754 005737 002134 TST INTFLG 
025760 001004 BNE 2$ 

025762 ERROF 24.,EM43,.ERRO 
025762 104462 TRAP TSERCODE 
025764 000030 .WORD 24 

025766 012523 WORD EM4S 
025770 014044 .WORD ERRO 
025772 2S: ESCAPE SEG 
025772 104010 ENT CSESCAPE 
025774 000036 .WORD 10000$-. 
025776 013737 002216 002150 MOV E. CS, THPO 
026004 042737 001777 002150 BIC #1777, THPO 
026012 022737 112000 002150 CMP 

026020 001404 BEQ 

026022 ERROF  25.,E€M10.ERRO 
026022 104462 TRAP TSERCODE 
026024 000031 .WORD 25 

026026 010643 .WORD EM10 
026030 014044 .WORD ERRO 
026032 1$: 

026032 ENDSEG 

026032 100008: 


K 6 


KXTEST 21%% - FORCE HEADER NOT FOUND WITH READ INTERRUPT 


+ tetanic Otel 


+HEADS OVER TRACK O 
HEADS GO HOME OKAY 


+ %%START OF SEGMENT%% 


CLEAR INTERRUPT OCCURANCE FLAG 
; INSURE NOT TO FIND HEADER BY 
+SETTING SECTOR 4O OF CYL. ADOR. 
WORD COUNT 


a ;LOAD THE FUNCTION IN NEXT WORD 
[WAIT FOR CONTROLLER READY 


— INTERRUPT OCCUR 


, 


;HNF DID NOT INTERRUPT 


+ CHECK FOR FL: LOE. ELSE EXIT SEG 


+GET RLCS 
SAVE ERROR BITS 
;WOR NOT FOUND SET. 


+ YES. CONTINUE 


WHEN FORCED 


+%%END OF SEGMENT%% 


SEQ 0075 





MACY11 30(1046) 


03-NOV-77 


. PL O3-NOV-77 09: 54 


026032 
026034 
026034 
026034 


026036 
026036 


026036 


026036 
026042 
026050 
026052 


026054 
026054 


104005 


104001 


004737 
104032 
000540 
104004 


012700 
104041 
012703 


0004 
013737 


042737 
012777 
011337 


021154 


000340 
002304 


020254 
021074 


020012 


10:02 PAGE 83-53 
KKTEST 214% - FORCE HEADER NOT FOUND WITH READ INTERRUPT 


ENDTST 


L10052: 


EMT 


EMT 


L 6 


CSESEG 


CSETST 


+¥XEND OF TESTS% 


.SBTTL &KTEST 224% - CHECK HEADER COMPARE LOGIC 
+¥XSTART OF TESTES 


BGNTST 


STARS 

5 + REXAAAAAAAAAAAALAAALAAAA ALARA AA AA AA AAAS ASAT AAA AAA AAA AAAI SE 
+CHECK THE HEADER COMPARE LOGIC WORKS. WE 

+KNOW THAT THE LOGIC FUNCTIONS PROPERLY BUT NOW WE WILL 

+CHECK ALL THE BITS IN THE HEADER WORD. 
ARE USED A WALKING 1, 


GROWING 1, WALKING 0, 


UP TO THIS POINT 


FOUR PATTERNS 
GROWING 0. 


A SEEK 


;1S ISSUED BEFORE EACH READ TO INSURE WE ARE ON THE PROPER 
ONCE WE ARE ON THE RIGHT TRACKWE LOAD THE 


+ TRACK. 
*AND ISSUE THE READ. 


;WE THEN LOAD THE COMPLIMENT PATTERN INTO THE RLDA 
sEXPECTING A HEADER NOT FOUND TO SET 


STARS 
js REXAAAAAAAAAAAAAAAA AAA AAA AAA AAA AA AAA ALAA AAA AA AA AAA AAA AAA AAAS 


18: 


002224 002152 
000177 002152 


000001 
002154 


154074 


BGNSEG 
ENT 


JSR 
ROHOR 


JSR 
ESCAPE 
EMT 
. WORD 


JSR 
ss 


PC, HOHOME 
CSEXIT 
L10053-. 
CS$BSEG 
#PRI07 
#PR107,R0 
CSSPR I 
#HORTAB, RS 
CSBSEG 
RS, LDOFUNC 
RS, WTCROY 


SEG 
CSESCAPE 
10001$-. 


RS. CHERR 


SEG 
CSESCAPE 
100015$-. 
E. MP, TMP 1 


#177, THP1 
#1, ARLDA 
(R3), THPZ 


+HEADS OVER TRACK 0 
+HEADS GO HOME OKAY 


RLOA 
UPON COMPLETION WE WILLCHECK FOR ERRORS 


;%%START OF SEGMENT%% 


;PRIORITY TO 


? 


-GET LIST START 
+%%START OF SEGMENT%% 


;LOAD THE FUNCTION IN NEXT WORD 


READ HEADER 


;WAIT FOR CONTROLLRE READY 


CHECK FOR FL: LOE, 


;CHECK CNTLR FOR ERRORS 


CHECK FOR FL: LOE. ELSE EXIT SEG 


READ AND SAVE HEADER 


+CLEAR OUT SECTOR AND H. S. 
+SETUP MARKER FOR SEEK 
+GET HEADER PATTERN 


ELSE EXIT SEG 





SEQ 0076 


OUTERR 


DZRLEA. 


MACY11 301046) 
Pil 03-NOV-77 


026146 


026226 


026230 
026234 
026234 
026236 


026240 
026244 
026244 
026246 


026250 


026354 
026354 
026356 


042737 


000006 


004537 


104010 
000350 


004537 


104010 
000340 


004537 
104010 
000330 
004537 
000010 
004537 


104010 
000312 


004537 


104010 
000302 


013737 


014210 


104010 
000230 


09: 


000177 
002152 


000004 
002154 
002154 
000100 


000029 
020254 


021074 


020012 


021034 


020254 
021074 


020012 


002224 
002140 
002156 
002140 
002156 


002154 
002154 


154044 


154030 


154014 


002160 
002160 


002156 
002160 


wie 10:02 PAGE 83-54 


KXTEST 224% - CHECK HEADER COMPARE LOGIC 


23: 
35: 


4$: 


55: 


#177. THPZ 
TMP1, TMHPZ 


2$ 
#SIGN, @RLOA 
3$ 


THP2 
TMP 2, ARLDA 
#RHHS, (R3) 


4§ 
#OAHS, ORLDA 


R5, LOFUNC 


RS, WTCROY 


SEG 
CSESCAPE 
10001$-. 


R5. CHERR 


SEG 
CSESCAPE 
10001$-. 
R5, WTORDY 
SEG 
CSESCAPE 
10001$-. 
R5. LDFUNC 
RS, WTCRDY 
SEG 


CSESCAPE 
10001$-. 


RS. CHERR 
SEG 


CSESCAPE 
10001$-. 


E. NP. BODAT 


SECMSK. BODAT 


(R3). GDDAT 


SECMSK. GDDAT 
erate: 


27. EM11,ERR4Y 


+ ates 


2 
EM1i1 
ERR4 
SEG 


CSESCAPE 
10001$-. 


sCLEAR OUT SECTOR AND H.S. 
+ CALCULATE ae TO SEEK 
+BRANCH FOR SEEK OUT 
+SEEK TOWARDS SPINOLE 
+GO PUT IN DIFFERENCE WORD 

WE HAVE TO NEGATE DIFFERENCE 
;SET IN DIFFERENCE WOR 

+00 WE WANT HEAD SELECT AS 07 
+YES. SKIP OVER gp H. S. 
; SET seer SELECT TO ONE 

— LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR CONTROLLER READY 
+ CHECK FOR FL: LOE, ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 
;CHECK FOR FL: LOE, ELSE EXIT SEG 


;WAIT FOR DRIVE PEADY 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


+LOAD THE FUNCTION IN NEXT WORD 
;READ HEADER (VERIFY SEEK) 
;WAIT FOR CONTROLLER READY 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


+ CHECK CNTLR FOR ERRORS 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


;READ HEADER 

;SAVE CYLINDER FOR COMPARE 
;GET EXPECTED HEADER 

;SAVE CYLINDER FOR COMPARE 
;SEEK END UP OKAY 

> YES. CONTINUE 


SEEK INCORRECT 


+CHECK FOR FL: LOE. ELSE EXIT SEG 


SEQ 0077 


OUTERR 


DZRLEA. 


MACY11 301046) 
Pil 03-NOV-77 


026360 


026422 


026424 
026430 
026430 
026432 


026434 
026440 
026444 
026452 


026460 


026530 
026536 


026540 


026544 
026552 


026566 
026566 
026570 
026572 
026574 


011377 
042777 
012777 
012777 


004537 
000014 
004537 


104010 
000164 


004537 


104010 
000154 


011377 
005177 
012777 
012777 


004537 
000014 
004537 


104010 
000112 
013737 
042737 
022737 
001402 
004537 


104006 


022737 
001413 


011337 
013737 
005137 


104462 
000034 
010737 
014210 


104010 
000016 


005723 
020327 


09: 


153652 


002652 
020254 
021074 


020012 


153576 
153572 
177777 
002652 
020254 


021074 


002216 
001777 
112000 


020012 


112000 


002156 
002156 
002160 


002460 


153644 
153640 
153626 


153566 
153554 


002150 
002150 
002150 


002150 


002160 


6$: 


kes 10: ¥ PAGE 83-55 


RETEST 224% - CHECK HEADER COMPARE LOGIC 


ESCAPE 
ENT 
. WORD 


TST 
CMP 


- (RI), ORLOA 


#77, @RLOA 
+1 REAP 
#BUF, ARLBA 
RS, LOF UNC 
RS, WTCRDY 
SEG 


CSESCAPE 
10001$-. 


RS. CHERR 
StG 


CSESCAPE 
10001$-. 


(R3). @RLDA 
dRLDA 

#-1, ORLMP 

#BUF, ARLBA 
R5. LOFUNC 

R5, HTCROY 


SEG 
CSESCAPE 
10001$-. 

E. CS. THPO 
#1777, THPO 


#B1T1IS!B1T12!'B1T10. TMPO 
+ YES. CONTINUE 


8$ 
RS. CHERR 
CSCLP1 


+SET UP DISK ADDRESS 


+WORD COUNT 


+BUS ADDRESS 
+LOAD THE FUNCTION IN NEXT WORD 


+ READ 


+WAIT FOR CONTROLLER READY 


+ CHECK FOR FL: LOE. 


ELSE EXIT SEG 


+ CHECK CNTLR FOR ERRORS 


; CHECK FOR FL: LOE, 


ELSE EXIT SEG 


+SET UP DISK ADDRESS AS 
+ COMPLIMENT TO CAUSE HDR NT FND 


WORD COUNT 


+BUS ADDRESS 
+LOAD THE FUNCTION IN NEXT WORD 


> READ, 
+WAIT FOR CONTROLLER READY 


+ CHECK FOR FL: LOE. 


+GET CS 
+ SAVE ERROR BITS 
+D1D0 HEADER NOT FOUND SET 


+ ‘Peat ais rinwal ste, 


(R3), GDDAT 
GDDAT. BDDAT 
BODDAT 


28. ,EM12, ERRY 


TSERCODE 
28 

EM12 
ERR4 
SEG 


CSESCAPE 
10001$-. 


(R3)+ 
R3. #HDREND 


ELSE EXIT SEG 


+SET UP DATA FOR ERROR 


PRINT OUT 


+HDR NOT FOUND WOULD NOT SET 


+ CHECK FOR FL: LOE. 


‘ 


+GET NEXT PATTERN 
T END? 


ELSE EXIT SEG 


SEQ 0078 


OUTERR 


OZRLEA. 


Pil 


MACY11 30(1046) 
O3-NOV-77 09 


026600 
026602 


026606 
026606 


026612 


026614 
026614 


026614 


026614 
026620 
026626 
026630 


026632 
026636 


026642 
026642 


026644 


026674 
026702 


026710 
026714 
026716 
026722 
026722 
026724 


026726 
026732 


001402 
000137 


104005 


104005 


104001 


004737 


104032 
000156 


005037 
005037 


104004 


013737 
053737 
013777 
062737 
012777 
012777 


004537 
000014 
004537 


104010 
000060 


004537 


026072 


021154 


002150 
002152 


002152 
002150 
002156 
000002 
002652 
177577 


020254 
021074 


020012 


03-NOV-77 
: 64 


002156 
002156 
153350 
002156 
153332 
153330 


7$: 


100015: 


10000$: 


ENDTST 


L10053: 


. SBTTL 
BGNTST 


STARS 
3s RERAAAAAAAAAAAAAAAAAA AAA AAA AAA AAA AA AA LAA LARA AAA AAA AAA AAA AAA AAAS 


10:02 PAGE 83-56 
XZTEST 224% - CHECK HEADER 


BEQ 
JMP 
ENDSEG 
ENT 
ENDSEG 
ENT 


EMT 


XXTEST 23%x - CHECK MULTIPE SECTORS ON READ 


8 7? 
COMPARE LOGIC 
+YES. EXIT TEST 


7$ 
1$ 


CSESEG 


CSESEG 


CSETST 


+NO, GO BACK 


+%%END OF SEGMENT%% 


;%2%END OF SEGMENT%% 


:¥XEND OF TESTXE 


sRXSTART OF TEST4% 


;VERIFY THAT MULTIPLE SECTORS CAN BE READ, WE WILL CHECK 
+; THAT THE RLDA INCREMENTS PROPERLY. 


STARS 
3s RKAXKAAAAAAAAA AAA ARR AA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA ETE 


15: 


JSR 
CKERFG 
EMT 
. WORD 
CLR 
CLR 


BGNSEG 
EMT 


JSR 
ESCAPE 


PC, HDHOME 
CSEXIT 
L10054-. 


TMPO 
TMP 1 


CSBSEG 


TMP 1, GODAT 


#BUF., ARLBA 
#-129. . ARLMP 


RS. LDFUNC 
—— 


CSESCAPE 
10000$-. 


RS, CHERR 
SEG 


wn 
m 


+HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


CLEAR LOCATIONS 


+%%START OF SEGMENT%% 


+GET CYLINDER 


+GET SECTOR 


+ SET DISK ADDRESS-SECTOR O 


+SET EXPECTED + 2 
*+SET BUS ADDRESS 


;WORD COUNT-SECTOR+1 WORD 


+LOAD THE FUNCTION IN NEXT WORD 


; READ 
;WAIT FOR CONTROLLER READY? 


+ CHECK FOR FL: LOE. 


ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 


7 CHECK FOR FL: LOE, 


ELSE EXIT SEG 


SEQ 0079 


OUTERR 
DZRLEA 


MACY11 30(1046) 


Pil O3-NOV-77 09:5 


026732 
026734 


026736 
026744 
026752 


026754 


026762 


026764 
026764 
026766 


026770 
026774 
027002 


027004 
027004 
027004 
027006 
027006 
027006 
027010 


027010 


027010 


027010 
027014 
027022 
027024 


027026 
027026 


027030 
027036 
027044 
027052 


104010 
000050 


013737 
023737 
001404 


104462 
000035 
011030 
014210 


104010 
000016 
005237 


022737 
001320 


104005 


104001 


004737 


104032 
000126 


104004 


012737 
013777 
012777 
012777 


wd 


002222 002160 
002160 002156 


002150 
000046 


021154 


000047 
002156 
177577 
002652 


002150 


002156 
153172 
153166 
153154 


Cc 7? 
XXTEST 234% - CHECK MULTIPE SECTORS ON READ 
EMT CSESCAPE 
, 10 . 


10:02 PAGE 83-57 


WORD 000$- 
MOV E. DA. BODAT +READ DISK ADDRESS 
CMP BODAT. GODAT + 1S DISK ADDRESS CORRECT 
BEQ 2$ +YES. BRANCH NO, REPORT ERROR 
ERROF 29.,EM14,ERR4  ;DA DID NOT INCREMENT 
TRAP TSERCODE 
.WORD 29 
.WORD EM14 
.WORD ERRY 
25: ESCAPE SEG ;CHECK FOR FL: LOE. ELSE EXIT SEG 


EMT CSESCAPE 
.WORD 10000$-. 


INC THPO ;NEXT SECTOR? 

CMP #46, THPO ; DONE? 

BNE 1$ ;NO, GO BACK 

ENDSEG ;%%END OF SEGMENT%% 
100008: 

ENT CSESEG 
ENDTST ;¥XEND OF TESTRX 
L10054: 


ENT CSETST 


STARS 

3s RERAAAAAAAAAAARARAAAAAAAAAAAAAA AAA AAA AA AAA AAA AAA AAA AA AAA AAAS 
; CHECK THAT WE CAN FORCE A HEADER NOT FOUND AT THE 

END OF A TRACK DOING A MULTIPLE SECTOR READ. WE 

;SET UP TO READ TWO SECTORS STARTING AT SECTOR 39 

;WE SHOULD TRANSFER 128 WORDS THEN ABORT WITH A 

;HEADER NOT FOUND FOR SECTOR 40 


STARS 
js RERAAAAAAAAAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAS 


.SBTTL X&XTEST 24% - FORCE HDR NT FND AT END OF TRACK 
BGNTST ;HXSTART OF TEST&% 


JSR PC, HOHOME +HEADS OVER TRACK O 
CKERFG *HEADS GO HOME OKAY 
ENT CSEXIT 

.WORD 110055-. 


BGNSEG +%%START OF SEGMENT%% 
ENT CSBSEG 
MoV #39. , GDDAT + CREATE LAST SECTOR 


MoV GODAT. ARLDA +LOAD DISK ADDRESS 
MoV #-129. , ORLMP +WORD COUNT 
MOV #BUF. ARLBA +BUS ADDRESS 


SEQ 0080 


OUTERR 


DZRLEA. 


MACY11 30(1046) 
Pili 03-NOV-77 


027060 


027074 
027076 


027126 


027130 
027136 


027140 
027140 
027142 
027144 
027146 


027150 
027150 
027150 
027150 
027152 


027152 
027152 


027154 


027154 


027154 


027154 


027172 
027172 


004537 
000014 
004537 


104010 
000054 


013737 
042737 
022737 
001402 
004537 
104006 
022737 
001404 


104462 
000036 
011436 
014044 


104005 


104001 


004737 


104032 
000076 


104004 


09:5 
020254 
021074 


002216 
001777 
112009 


020012 


112000 


021154 


re 


002160 
002160 
002160 


002160 


10:02 PAGE 83-58 


dD 7? 


RETEST 24%% - FORCE HOR NT FND AT END OF TRACK 


JSR 
READ 


JSR 
4$: CKLOOP 


1S: 
ENDSEG 
EMT 


100008: 
ENDTST 
L 10055: 

ENT 
. SBTTL 


BGNTST 


RS, LOFUNC 
RS, WTCRDOY 


CSESCAPE 
10000$-. 


E. CS, BODAT 
#1777, BODAT 
en 
R5, CHERR 


CSCLP1 


#112000, BODAT 
1$ 


30. , EN23, ERRO 
TSERCODE 


30 
EN23 
ERRO 
CSESEG 


CSETST 


LOAD THE FUNCTION IN NEXT WORD 


;RE 
;WAIT FOR CONTROLLER READY 
; CHECK FOR FL: LOE. ELSE EXIT SEG 


+READ CS 

SAVE ERROR BITS 
+HOR NOT FOUND SET? 
+ YES, CONTINUE 


HEADER NOT FOUND DID NOT SET 


+%%END OF SEGMENT%% 


+XXEND OF TESTS 


XXTEST 25%x - FORCE NON-EXISTANT MEMORY ERROR 


;KASTART OF TESTXX 


STARS 

je RERAAAAAAAAAARALAAA AAA AAA AAA AAA AAA AA AAA AAA A AAA AAA AAA AA AAAS 
FORCE A NON-EXISTANT MEMORY ERROR. 

;WE SET THE RLBA TO EQUAL THE 
;LAST ADDRESS IN MEMORY AND ISSUE A READ. THE 
;READ SHOULD ABORT AFTER ONE WORD TRANSFERRED 


STARS 
js RRRAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ALAA AAA AAA AE 


JSR 
CKERFG 
ENT 


. WORD 


BGNSEG 


EMT 


PC. HDHOME 


CSEXIT 
L10056-. 


CS$BSEG 


*HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


;%%START OF SEGMENT%% 


SEQ 0081 


OUTERR 


DZRLER. 


MACY11 30(1046) 


O03-NOV-77 


Pil O3-NOV-77 09: 54 


027174 
027202 
027210 
027214 
027222 
027226 
027230 
027234 
027234 
027236 


027240 
027246 


027250 
027250 
027252 
027254 
027256 


027260 
027260 
027262 


027264 
027264 
027264 
027266 
027266 
027266 


027270 
027270 


027270 


027270 
027274 
027302 
027304 


027306 
02730€ 


012777 


004537 


104010 
000026 


032737 
001004 


104462 
000037 
011516 
014044 


104010 
000002 


104005 


104001 


004737 


104032 
000140 


104004 


177774 
000060 
153022 
177600 
020254 


021074 


020000 


021154 


153032 
002252 


153016 


002216 


10:02 PAGE 83-59 


& F 


XXTEST 254% - FORCE NON-EXISTANT MEMORY ERROR 


35: ESCAPE 


ENDSEG 
ENT 


100008: 
ENDTST 
L10056: 

EMT 
. SBTTL 


BGNTST 
STARS 


#177774, dRLBA 


#8A16!BA17. XMEM 


@RLOA 
#-128. . ORLMP 
RS, LOFUNC 


RS, HTCROY 


CSESCAPE 
10000$-. 
#NXM.E. CS 
3$ 


31. ,EM24, ERRO 
TSERCODE 


G 
CSESCAPE 
10000$-. 


CSESEG 


CSETST 


+LEAD BA 
+SET EA BIT 
+LOAD DISK AVAILABLE 
+WORD COUNT 
LOAD THE FUNCTION IN NEXT WORD 


;REA 
;WAIT FOR CONTROLLER 
; CHECK FOR FL: LOE. ELSE EXIT SEG 


+D1D NXM SET? 
+ YES, CONTINUE 


+NXM DID NOT SET 


+ CHECK FOR FL: LOE, ELSE EXIT SEG 


;%%END OF SEGMENT%% 


;KXEND OF TEST&X 


AXTEST 26% - FORCE NON-EXISTANT MEMORY ERROR INTERRUPT 


;XXSTART OF TEST&% 


js REXAAAAAAAAAAAAAAAAA AAA AAA KARA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
;CHECK THAT WE CAN FORCE AN INTERRUPT WITH A 
;NON-EXISTANT MEMORY ERROR. 


STARS 
5 MRRKAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ALAA AAA AAAS 


JSR 
CKERFG 
En 


T 
. WORD 
BGNSEG 
ENT 


PC. HOHOME 


CSEXIT 
L10057-. 


CSBSEG 


*HEADS OVER TRACK O 
*HEADS GO HOME OKAY 


+%%START OF SEGMENT%% 


SEQ 0082 


OUTERR 


DZRLEA. 


MACY11 301046) 


03-NOV-77 


Pil 03-NOV-77 09: 54 


027310 


027314 


027370 
027372 


027374 
027400 


027402 
027402 
027404 
027406 
027410 


027412 
027412 
027414 


027416 
027424 


027426 
027426 
027430 
027432 
027434 


027436 
0274 36 
027440 


027442 
027442 
027442 
027444 
027444 
027444 


005037 


012700 


000114 
004537 


012700 
104041 


104010 
000050 


005737 
001004 


104462 
000040 
012567 
014044 


104010 
000026 
032737 
001004 


104462 
000041 
011516 
014044 


104010 


000002 


104005 


104001 


002134 


000000 


177774 
000060 
152674 
177777 
020254 


021074 
000340 x 


152704 
002252 


152670 


002134 


020000 002216 


4S: 


38: 


100008: 


ENOTST 


L10057: 


. SBTTL 


, # 


10:02 PAGE 83-60 
XKTEST 264% - FORCE NON-EXISTANT MEMORY ERROR INTERRUPT 


CLR INTFLG 
SETPRI #PRIOO 
MOV #PR100, RO 
EMT CSSPR I 


MOV #177774, ORLBA 
MOV #8A16!BA17, XNEM 
@RLDA 


MoV #-1, ORLMP 
JSR RS. LDOFUNC 
READ! INTEN 

SR RS, WTCROY 
SETPRI #PRI07 
MoV #PRIO7,R0 
EMT CSSPRI 
ESCAPE SEG 

ENT CSESCAPE 
WORD 10000S-. 
TST INTFLG 
BNE 4§ 

ERRDOF 32.,EM44,ERRO 
TRAP TSERCODE 

WORD 32 

WORD =EM44 
.WORD ERRO 
ESCAPE SEG 

EMT CSESCAPE 
.WORD 10000$-. 
BIT #NXM.E. CS 
BNE 3$ 

ERROF 33.,EM24.ERRO 
TRAP TSERCODE 
.WORD 33 

WORD EN24 

WORD ERRO 
ESCAPE SEG 

EMT CSESCAPE 
.WORD 10000$-. 
ENDSEG 


EMT CSESEG 


EMT CSETST 


;CLEAR INTERRUPT OCCURANCE FLAG 


+PRELOAD BA 

+SET EA BITS 

LOAD DA 

WORD COUNT 

ach +LOAD THE FUNCTION IN NEXT WORD 
s;WAIT FOR CONTROLLER 

PRIORITY TO 7 


+CHECK FOR FL: LOE. ELSE EXIT SEG 


+ INTERRUPT OCCUR? 
+YES OKAY 


+NO INTERRUPT W/NXM 
CHECK FOR FL: LOE. ELSE EXIT SEG 


+DID NXM SET? 
+ YES. CONTINUE 


7NO NXM 


CHECK FOR FL: LOE, ELSE EXIT SEG 


:%%END OF SEGMENT%% 


+ XXEND OF TEST&A 


ATEST 274% - CHECK READ WRITE LOOP 


SEQ 0083 


OUTERR 


DZRLEA. 


MACY 11 wb | 


Pil 03-NOV- 


027446 
027446 


027446 


027446 
027452 
627460 
027462 


027464 
027464 


027466 
027472 
027476 
027502 
027504 
027506 
027512 
027520 
027526 
027532 
027534 
027540 
027540 
027542 


027544 


027626 


004737 


104032 
000362 


104004 


012700 
012701 
012720 
005301 
001374 
005077 
012777 
012777 
004537 
000012 
004537 


104010 
000300 


004537 


104010 
000270 


104004 
012700 


104010 


03-NOV-77 
7 09: 54 


021154 


002652 
000200 
125252 


152524 
177600 
002652 
020254 


021074 


020012 


002652 
000200 


152436 
177600 
002652 
020254 


021074 


152520 
152506 


152432 
152420 


10:02 PAGE 83-61 


G 7 


AXTEST 27%% - CHECK READ WRITE LOOP 


BGNTST 


s¥XSTART OF TESTS* 


STARS 
4 + RARAAAAAAAAAAAAAAALAA AAA LALA AAA AAA AAAS AA AAA AAA AAA AAA AAA EATS 
+ VERIFY THAT THE WRITE ACTUALLY WRITES. AT THIS 

+ TIME WE KNOW THAT THE WRITE FUNCTION GOES THRU 

+ THE MOTIONS BUT WE DON'T KNOW THAT THE DATA 

;ACTUALLY GETS RECORDED ON THE PLATTER. 


STARS 
js MXXXAAAAAAAARAAAAAAAA AAA AAA AAA AAA AA AAA AA AAA AAA AAA AA AAAS T a 


JSR 


CKERFG 
EMT - 


. WORD 


BGNSEG 
EMT 


34: MoV 


4S: CLR 


PC, HOHOME 
CSEXIT 
L10060-. 
CSBSEG 
#BUF,RO 
#128. ,R1 
#125252, (RO)+ 
R1 

3$ 

ORLDA 
#-128. . ARLMP 
#BUF. ARLBA 
RS. LDFUNC 
ee 


CSESCAPE 
10000$-. 


RS. CHERR 


CSESCAPE 
10000$-. 


w 
mm 


4) 
m 
o 


ORLDA 
#-128. , ORLMP 
#BUF. ARLBA 
RS. LDF UNC 


RS, WTCRDY 
CSESCAPE 


wn 
m 
o 


+HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


+%%START OF SEGMENT%% 


+SET UP WRITE BUFFER 
+128 WORDS/ONE SECTOR 
;WRITE PATTERN TO BUFFER 


+ DONE? 
; NO, BRANCH BACK 
+DISK ADDRESS 
+WORD COUNT 
BUS ADDRESS 
+LOAD THE FUNCTION IN NEXT WORD 
;WRITE THE PATTERN 
;WAIT FOR CONTROLLER READY 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


+CHECK CNTLR FOR ERRORS 
CHECK FOR FL: LOE. ELSE EXIT SEG 


;%%START OF SEGMENT%% 
— bo BUFFER BEFORE 
*CLEAR BUFFER 
+ DONE? 
;NO, BRANCH BACK 


+LOAD D!SK ADORESS 
+WORD COUNT/ONE SECTION 
+LOAD BUS ADDRESS 
;LOAD THE FUNCTION IN NEXT WORD 
+GO READ 
;WALT FOR CONTROLLER READY 
CHECK FOR FL: LOE. ELSE EXIT SEG 


SEQ 0084 


OUTERR 
DZRLEA. 


Pil 


MACY11 30(1046) 
03-NOV-77 


027630 
027632 


000210 


004537 
005737 
001003 


104010 
000172 
000404 
005737 
001772 


104006 


005037 
005037 
012702 
012701 
012737 
011237 
023737 
001442 
010237 
023737 
001002 


104010 
000076 
005237 


005737 
001007 


104462 
000042 
011574 
014364 
005237 
000416 


027660 
027662 


027744 


027750 
027754 


013746 
013746 
013746 
012746 
012746 
030020 010600 
104014 
062706 


030030 104006 


03-NOV-77 
09: 54 


020012 
002114 


016574 


002120 
002112 
002652 
000200 
125252 
002160 
002156 


002152 
002120 


002120 
002112 


002112 


002160 
002156 
002152 
015642 
000004 


000012 


002156 
002160 


016576 


10:02 PAGE 83-62 


H 7 


RXTEST 274% - CHECK READ WRITE LOOP 


105: 


8$: 


995: 


3335: 


9S: 


6$. 
7$: 


. WORD 


CKLOOP 
ENT 
TST 
DEC 


BNE 
ENDSEG 


PRINTB #FRNTO. T 
BOD 


10001$-. 
RS, CHERR 
T. CRC 


8$ 

SEG 
CSESCAPE 
10001$-. 
99% 

T. OMP 
10% 


CSCLP1 


COCNT 

CHECK 

#BUF,R2 

#128. ,R1 
#125252, GDDAT 
(RZ), BODAT 
GDDAT, BODAT 
6$ 


RZ, TMP 1 

COCNT. T. LMT 
333% 
SEG 
CSESCAPE 


10001$-. 
COCNT 


CHECK 

9$ 

34. ,EM25, ERR8 
TSERCODE 

34 


T. 


TMP1,-(SP) 
#FRMTG, - (SP) 
#4, -(SP) 
SP.RO 
CSPNTB 

#12. SP 


+ CHECK CNTLR FOR ERRORS 


+WAS ERROR A DCK?? 


+ YES, SEE IF WE 


AD 
+ CHECK FOR FL: LOE. 


+ SKIP AROUND 


UMP 
ELSE EXIT SEG 


:D9 WE STILL WANT TO CHECK IT 
ZYES, CHECK FOR LOOP FIRST 


+ CLEAR NUMBER WE'RE TO PRINT 
;ALLOW HEADER ON FIRST PRINT 
> COMPARE BUFFER TO CHECK WRITE 


+128 WORDS 


¢ 


+ 1S DATA OKAY 
+ YES. CONTINUE 


+SET UP EXPECTED 
;GET DATA 


+LOAD BAD MEM LOCATION 
+ CHECKED ENOUGH?? 


>NO 
; CHECK FOR FL: LOE. ELSE EXIT SEG 


ACCOUNT FOR IT 


+HEADER OR JUST DATA 


+ JUST DATA 
+BAD DATA 


;ACCOUNT FOR PRINT DF HEADER 


a 
) 


*BUMP BUFFER PCINTER 
; DONE? 


:NO, GO BACK 


+ %AENC OF SEGMENT%% 


SEQ 0085 


OUTERR 


DZPLEA. 


Pi 


MACY11 30(1046) 


11 O03-NOV-7 


030040 


O30084 


030046 


030046 


030046 


030046 
030052 
030060 
030062 


030064 


030070 


104005 


104005 


104001 


004737 


104032 
000404 


012703 


104004 
012700 
012701 
011320 
005301 
001375 


012777 
005077 


104010 
000310 


104004 


03-NOV-77 
77 09: 54 


021154 


002462 


002652 
000200 


002652 
152114 
177600 
020254 


021074 


020012 


152116 
152110 


10:02 PAGE 83-63 


? 


KXTEST 274% - CHECK READ WRITE LOOP 


100015: 


10000$: 


ENOTST 


L10060: 


. SBTTL 
BGNTST 


STARS 

3 RERRAAAAAAAAAAKARAAA AAA AA AAA AAA AA AAR AA AAA AAA AAA AA AAA AAA AAA AAS 
+ TEST THAT LINES IN 7 TO SILO ARE GOOD. 
;GOOD AND CAN BE AT EITHER A 1 OR AO STATE INDEPENTENTLY OF EACH 
Ap Sa aemate THIS 1S DONE BY WRITING PATTERNS OF FLOATING 1. 
sFL ING 0, 


STARS 
js RAEXKAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AES 


6S: 
2s: 


ENT 
ENDSEG 


ENT 


EMT 


CSESEG 


CSESEG 


CSETST 


+%%END OF SEGMENT%% 


+¥XEND OF TESTXX 


XKTEST 28%% - CHECK SILO LINES 


WALKING 0. 


PC, HDHOME 


CSEXIT 
L10061-. 


#DATPAT.R3 


CS$BSEG 
#BUF,.RO 
#128. ,R1 
(R3), (RO)+ 
Ri 

2$ 


MOV #BUF, ARLBA 
R ) 


RLDOA 
#-128. . ORLMP 
RS. LDFUNC 


_— 
CSESCAPE 


G 
CSESCAPE 
10000$-. 


CSBSEG 


+HXSTART OF TEST*X 


WALKING 1 


+HEADS OVER TRACK 0 
;HEADS GO HOME OKAY 


THAT 1S THAT EACH LINE 


;%%START OF SEGMENT%% 
;WRITE PATTERN INTO MEMORY 


+128 


+ DON 
; NO GO BACK 


SETUP TO WRITE PATTERN ONTO DISK 


LOAD DA 
+WORD COUNT 


WORDS 
;WRITE THE PATTERN 
E? 


1S 


;LOAD THE FUNCTION IN NEXT WORD 


+ CHECK FOR FL: LOE. 


ELSE EXIT SEG 


;CHECK CNTLR FOR ERRORS 


+ CHECK FOR FL: LOE. 


ELSE EXIT SEG 


>%%START OF SEGMENT%% 


SEQ 0086 


J 7 
OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-64 


DZRLEA. P11 O3-NOV-77 O09: 54 RXTEST 284% - CHECK SILO LINES SEQ 0087 
5316 030160 012700 002652 MOV #BUF.RO CLEAR MEMORY BEFORE READING IT BACK 
5317 030164 012701 000200 MOV #128. ,R1 +128 WORDS 
5318 030170 005020 3S: CLR (RO)+ + CLEAR 
5319 030172 005301 DEC Ri + EONE 
pies 030174 001375 BNE 3$ +NO 
5322 030176 012777 002652 152030 MOV BUF. ARLBA ;+SETUP TO READ IT BACK 
5323 030204 012777 177600 152026 MOV #-128. . ORLMP +128 WORDS 
5324 030212 005077 152020 CLR ORLOA +SECTOR ZERO 
5325 030216 004537 020254 JSR RS. LOFUNC +LOAD THE FUNCTION IN NEXT WORD 
5326 030222 000014 READ 
5327 030224 004537 021074 JSR RS, WTCRDY 
5328 030230 ESCAPE SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 

(3) 030230 104010 EMT CSESCAPE 
(3) 030232 000224 .WORD 100015S-. 
5329 030234 004537 020012 JSR RS. CHERR + CHECK CNTLR FOR ERRORS 
5330 030240 005737 002114 TST T. CRC ;WAS ERROR A wy 
5331 030244 001003 BNE 8$ ;YES,SEE IF WE A DUMP 
5332 030246 108: ESCAPE SEG +CHECK FOR FL: LOE, ELSE EXIT SEG 
(3) 030246 104010 EMT CSESCAPE 
(3) 030250 000206 .WORD 100015-. 
5333 030252 000404 BR 995 + SKIP AROUND 
5334 030254 005737 016574 85: TST T. OMP + D0 WE STILL WANT TO CHECK IT 
5335 030260 001772 BEQ 10% NO 
5336 030262 CKLOOP YES, CHECK FOR LOOP FIRST 
ast? 030262 104006 EMT CSCLP1 
5338 030264 005037 002120 995: CLR COCNT + CLEAR NUMBER WE'RE TO PRINT 
5339 030270 005037 002112 CLR CHECK +ALLOW HEADER ON FIRST PRINT 
5340 030274 011337 002156 Mov (R3),GODAT ; COMPARE WHAT WE READ BACK 
5341 030300 012737 002652 002154 MOV BUF. TMHP2 +BUFFER START 
=f 030306 012737 000001 002152 MoV #1, TMP 1 + START WITH FIRST 
5344 030314 017737 151634 002160 5%: MoV aTHP 2, BODAT +GET DATA 
5345 030322 023737 002156 002160 CMP GDDAT. BODAT + GOOD? 
oe 030330 001440 BEQ 4$ + YES. BRANCH 
4 
5348 030332 023737 002120 016576 CMP COCNT, T IMT + CHECKED ENOUGH?? 
5349 030340 001002 BNE 3338 +NO 
5350 030342 ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) O30342 104010 EMT CSESCAPE 
(3) 030344 000112 .WORD 10001$-. 
et 030346 005237 002120 3338: INC CDCNT ACCOUNT FOR IT 
5353 030352 005737 002112 TST CHECK +HEADER OR JUST DATA 
5354 030356 001007 BNE 98 + JUST DATA 
5355 030360 ERROF 35.-EM45.ERR10 ;BAD DATA BACK 
(3) 030360 104462 TRAP TSERCODE 
(5) 030362 000043 .WORD 35 
(5) 030364 012624 .WORD EM4S 
acne 030366 014502 .WORD ERR10 
5357 030370 005237 002112 INC CHECK ;ACCOUNT FOR PRINT OF HEADER 
5358 030374 000416 BR 4$ 


5360 030376 9S: PRINTB #FRNT7, THP1, GODAT. BODAT 


OUTERR MACY11 30(1046) 
DZRLEA. P11 


(10) 030376 


030434 
030442 
O30446 
030454 


030456 
030456 
030456 


030460 
030462 


030464 
030464 
030464 
030466 
030466 
030466 


030470 


030470 


030470 


03-NOV-77 


013746 


062706 
104006 
062737 
00&237 


023727 
001317 


104005 


005723 
001203 


104005 


104001 


004737 
104032 
000410 
104004 


012700 
012701 


O3-NOV-77 10:02 PAGE 83-65 
09: 54 


002160 


000004 


000012 


000002 002154 
002152 
002152 000201 


021154 


000001 
000200 


XXTEST 284% - CHECK SILO LINES 


4$: 


10001$: 


100008: 


ENDTST 


L10061: 


. SBTTL 
BGNTST 


STARS 

jj RERAAAAAAARAAAAAAAAA AAA AAA AAA AAA AA AAA AAA AA AAA AAA AA AAA AAA AAAS 

; TEST THAT THE SILO OPERATES CORRECTLY. WE WILL WRITE A PATTERRN THAT CONTAINS 
7A UNIQUE PATTERN IN EACH LOCATION. WE EXPECT IT BACK IN PROPER 


ENDSEG 
EMT 


TST 
BNE 


ENDSEG 
EMT 


ENT 
XXTEST 


K 7 


BODAT. -(SP) 
GODAT, -(SP) 
THP1, -(SP) 
#FRMT7, -(SP) 
#4, -(SP) 
SP, RO 
CSPNTB 

#12, SP 
CSCLP1 

#2, THPZ 
TMP1 
TMP 1, #129. 
5% 


CSESEG 
(R3)+ 
6$ 


CSESEG 


CSETST 


NEXT LOCATION 
+NEXT WORD 


+ DONE 
;NO. GO BACK 
;%%END OF SEGMENT%% 


+DONE ALL PATTERNS 
+NO. GO BACK 


+%%END OF SEGMENT%% 


+¥XEND OF TESTX% 


29xx - CHECK THROUGHPUT OF SILO 


+HXSTART OF TESTX% 


ORDER. WE DO A ONE SECTOR TRANSFER 


STARS 
js RARAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


PC, HDHOME 
CSEXIT 
t10062-. 
CSBSEG 


#1,R0 
#128. .R1 


+HEADS OVER TRACK 0 
+HEADS GO HOME OKAY 


+%%START OF SEGMENT%% 


INITIAL 1 
+128 WORDS 


SEQ 0088 


L ? 


OUTERR MACY11 30(1046) “1 ties 10:02 PAGE 83-66 


DZRLEA. P11 O3-NOV-77 09:5 SXTEST 29%% - CHECK THROUGHPUT OF SILO SEQ 0089 

5397 030520 012702 002652 MOV #BUF.RZ ; BUFFER 

5398 030524 010022 23: MOV RO. (R2)+ ;WRITE A WORD 

5399 030526 005200 INC RO i+NEXT PATTERN (1-128) 

5400 030530 005301 DEC Ri + DONE 

eae 030532 001374 BNE 2$ *NO 

5403 030534 012777 002652 151472 MOV BUF. ARLBA +SETUP TO WRITE 

5404 030542 012777 177600 151470 MOV #-128. . ORLMP +128 WORDS 

5405 030550 005077 151462 CLR @RLOA +DISK ADDRESS 0 

5406 030554 004537 020254 JSR RS. LOFUNC +LOAD THE FUNCTION IN NEXT WORD 

5407 030560 000012 WRITE 

5408 030562 004537 021074 JSR R5, WTCROY 

5409 030566 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 030566 104010 EMT CSESCAPE 

min 030570 000322 .WORD 10000$-. © 

5411 030572 004537 020012 JSR RS, CHERR CHECK CNTLR FOR ERRORS 

5412 030576 ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 030576 104010 ENT CSESCAPE 
(3) 030600 000312 .WORD 100005-. 

5413 030602 BGNSEG +%%START OF SEGMENT%% 
(3) 030602 104004 EMT CSBSEG 

5414 O03 012700 002652 MOV #BUF.RO CLEAR BUFFER 

5415 030610 012701 000200 MoV #128. ,R1 +128 IN LENGTH 

5416 030614 005020 35: CLR (RO)+ + CLEAR 

5417 030616 005301 DEC R1 DOWN COUNT 

Abe 030620 001375 BNE 3$ + DONE? 

5420 030622 012777 002652 151404 MoV #BUF, ARLBA +BUS ADDRESS 

5421 030630 012777 177600 151402 MOV #-128. . ORLMP +WORD COUNT 

5422 030636 005077 151374 CLR @RLDA +DISK ADDRESS 

5423 030642 004537 020254 JSR RS. LDF UNC +LOAD THE FUNCTION IN NEXT WORD 

5424 030646 000014 READ 

5425 030650 004537 021074 JSR RS. WTCRDY 

5426 030654 ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 030654 104010 EMT CSESCAPE 

mS 030656 000232 .WORD 10001$-. 

5428 030660 004537 020012 JSR RS. CHERR +CHECK CNTLR FOR ERRORS 

5429 030664 005737 002114 TST T. CRC +WAS ERROR A DCK?? 

5430 030670 001003 BNE 8$ + YES. SEE IF WE A DUMP 

5431 030672 10S: ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 030672 104010 ENT CSESCAPE 
(3) 030674 000214 .WORD 100015-. 

5432 030676 000404 BR 995 + SKIP AROUND 

5433 030700 005737 016574 8$: TST T. DMP +DO WE STILL WANT TO CHECK IT 

5434 030704 001772 BEQ 10$ +NO 

5435 030706 CKLOOP 7YES. CHECK FOR LOOP FIRST 

a 030706 104006 ENT CSCLP1 

5437 030710 005037 002120 995: CLR COCNT *CLEAR NUMBER WE'RE TO PRINT 

5438 03071% 005037 002112 CLR CHECK +ALLOW HEADER ON FIRST PRINT 

5439 030720 012737 000001 002156 MoV #1, GDDAT +START GOOD AT 1 

5440 030726 012737 002652 002154 Mov BUF, THP2 +START OF BUFFER 

5441 030734 012737 000001 002152 MOV #1, TMP 1 FIRST WORD 


OUTERR 
DZRLEA. 


MACY11 301046) 


O3-NOV-77 10:02 PAGE 83-67 


Pil 03-NOV-77 09: 54 


030742 
030750 
030756 


030760 


030774 
031000 


031022 


031024 
031024 
031030 
031034 
031040 
031044 
031050 
031052 
031054 
031060 
031060 


031062 
031070 
031074 
031100 
031106 


031110 
031110 
031110 


031112 
031112 
031112 
031114 
031114 
031114 


031116 


017737 
023737 
001440 


023737 
001002 


104010 
000116 
005237 


(05737 
601007 


104462 
000044 
012656 
014502 
005237 
000416 


013746 
013746 
013746 
012746 
012746 
010600 
104014 
062706 


104006 


062737 


001315 


104005 


104005 


104001 


002160 002156 


002120 016576 


002129 
002112 


002112 


002160 
002156 
002152 
01£717 
000uU04 


000012 


000002 002154 
002152 


002156 
002152 000201 


nh ? 


RXTEST 29%% - CHECK THROUGHPUT OF SILO 
151206 002160 45: 


3335: 


9S: 


6S: 


100015: 


10000: 


ENDTST 


L10062: 


. SBTTL 
BGNTST 


ENDSEG 
ENT 
ENDSEG 
ENT 


ENT 
XATEST 


aTMP2, BODAT +GET WORD 

BODAT, GODAT ; CORRECT? 

65 + YES 

COCNT. T. LMT ; CHECKED ENOUGH?? 
3338 ;NO 

SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 
CSESCAPE 

10001$-. 

COCNT ; ACCOUNT FOR IT 

CHECK + HEADER OR JUST DATA 

9 ; JUST DATA 


$ 
36. -EM47, ERR10 ;BAD DATA 
car 


EMN4?7 


ERR10 
— ; ACCOUNT FOR PRINT OF HEADER 


#FRNT7, THP1, GODAT, BODAT 
BDDAT. - (SP) 

GDDAT. - (SP) 

TMP 1, -(SP) 

#FRNT7, -(SP) 

#4, -(SP) 

SP.RO 

CSPNTB 

#12, SP 

CSCLP1 


#2, THPZ + NEXT 
TMP 1 + NEXT 


GODAT 
ia cg + DONE? 


;+%%END OF SEGMENT%% 
CSESEG 
+%ZEND OF SEGMENT%% 


CSESEG 
+HXEND OF TEST&% 


CSETST 
30%% - CHECK ZERO FILL ON WRITE 
;HXSTART OF TESTX% 


SEQ 0090 


OUTERR 


DZRLEA. P 


MACY11 30(1046) 
11 03-NOV-77 


031116 


031116 


031116 
031122 
031130 
031132 


031134 
031134 


031136 
031144 
031150 
031154 


031226 
031232 
031232 


031314 


004737 
104032 
000442 
104004 
012737 


104010 
000346 


004537 
104010 
000336 


012777 


104010 
000234 


03-NOV-77 
09: 54 


021154 


000001 
002652 
000200 
052525 


002152 
151042 
002052 
151026 
020254 


021074 


020012 


002652 
000200 
125252 


002652 
177600 
150736 
020254 


021074 


002152 


151030 


150746 
150744 


+ WHE 
; CONTROLLER WILL FILL IN THE REMAINING PORTION OF 
CHECK THIS FEATURE 


10:02 PAGE 83-68 
RETEST 30% - CHECK ZERO FILL ON WRITE 


TI 


N 7? 


THE SECTOR WITH ZERO WORDS. 


iMITH WORD COUNTS FROM 1 TO 127 
essisssttsrttietsisrtsirtssettssrtssetssetssessersssets sees see! 


+HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


185: 


JSR 
CKERFG 
ENT 
. WORD 
BGNSEG 
ENT 


PC. HOHONE 
CSEXIT 
L10063-. 


CSBSEG 


#52525, (RO)¢ 
's 

TMP1,R0 

RO 

RO. ORLMP 
#BUF. ARLBA 
@RLOA 

RS. LDFUNC 
R5, WTCRDY 
SEG 


CSESCAPE 
10000$-. 


RS. CHERR 
G 


CSESCAPE 
10000$-. 


“ 
m 


#125252, (RO)+ 
18$ 


#BUF. ARLBA 
#-128. , ORLMP 


ORLOA 

RS. LOFUNC 
RS, WTCROY 
SEG 


CSESCAPE 
10001$-. 


STARS 
++ AERAAAAAATAAALAA TATA AAAS AA AAA ATA AAA AA AAA A AA AAA AAA AAAS 
N WRITING PARTIAL SECTORS (LESS THAN 128 WORDS) THE 


+%%START OF SEGMENT%% 


START WITH 1 


WORD WRITE 


+WRITE BUFFER WITH 52525. WE'LL 


+WRITE 128 WORDS ALL THOUGH WE'RE 


ONLY GOING TO TRANSFER < 128 


*+DONE WITH BUFFER? 


NO, GO 


BACK 
+GET TRANSFER WORD COUNT 


+NEGATE FOR RLMP 


+STORE WORD COUNT AWAY 


+SET UP RLBA 


+LOAD THE FUNCTION IN NEXT WORD 


sWRITE IT 


+WAIT FOR WRITE TO FINISH 


+ CHECK FOR FL: LOE. 


ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 


+CHECK FOR FL: LOE. 


ELSE EXIT SEG 


+ %%START OF SEGMENT%% 


+WE'RE GOING TO OVERLAY BUFFER BEFORE 
+READING IT BACK. 


SOVERLAY IT WITH COMPLIMENT 


+ DONE? 
;NO. KEEP GOING 
+SET UP TO READ 


+128 WORDS TO CHECK ZERO FILL 


+ SECTOR 


+LOAD THE FUNCTION IN NEXT WORD 


+WAIT TIL WE FINISH THE READ 


+ CHECK FOR FL: LOE. 


ELSE EXIT SEG 


SEQ 0091 


OUTERR 
DZRLEA. 


MACY11 30(1046) 
Pil 03-NOV-77 


031316 
031322 


031362 


031366 
031372 
031376 
031404 
031410 
031416 
031420 
031426 
031430 
031430 
031432 
031434 


031440 


031462 
031464 


031532 


004537 
005737 
001003 


012701 


012703 
005037 
012737 
011337 
023737 
001441 


023737 
001002 


104010 
000116 
005237 


005737 
001007 


104462 
000045 
011705 
014626 
005237 
000417 


013746 


005301 


03-NOV-77 


09: 54 


020012 
002114 


016574 


002120 
002112 
002152 
000200 


002652 


0 
002160 


002120 


002120 
002112 


002112 


002160 
002156 


002152 
016112 
000005 


000014 


002154 


002156 
002156 


016576 


10:02 PAGE 83-69 


RETEST 3ORK - CHECK ZERO FILL ON WRITE 


105: 


83: 


995: 


3335: 


95: 


12: 
6S: 


RS, CHERR 
T. CRC 


SEG 
CSESCAPE 
10001$-. 
99% 

T. DMP 
10% 
CSCLP1 
COCNT 
CHECK 
THP1,R2 
#128..R1 
BUF, RZ 
THP2 
#52525, GODAT 


(R3). BODAT 
BODAT. GODAT 
12% 


COCNT, T. LAT 
3338 
SEG 
CSESCAPE 


10001$-. 
COCNT 


CHECK 
9$ 


37. ,€M27, ERR12 


TSERCODE 
37 


EN27 
ERR12 
CHECK 
12% 


fe 


GDDAT, - (SP) 


CHECK CNTLR FOR ERRORS 


+ WAS pe A OCK?? 


+ YES, SEE | 


F WE A DUMP 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


+SKIP_ AROUND 


09 WE STILL WANT TO CHECK IT 
SYES, CHECK FOR LOOP FIRST 
;CLEAR NUMBER WE'RE TO PRINT 
[ALLOW HEADER ON FIRST PRINT 
;WORDS WRITTEN IN R2 

;CHECK 128 WORDS 


+SET UP BUFFER BEGINNING 


;ZERO WORD COUNT 


+SET UP EXPECTED 


+GET WORD 


71S WORD CORREC 


T? 


+ YES. GO CHECK COUNTS AND REPEAT 
+ CHECKED ENOUGH?? 


+NO 
; CHECK FOR FL: LOE. 


ACCOUNT FOR IT 


ELSE EXIT SEG 


;HEADER OR JUST DATA 


; JUST DATA 


;ACCOUNT FOR PRINT OF HEADER 


PRINTB #FRNT9, THP1,R3, GDDAT. BDDAT 
BODA SP) 


DONE ALL WORDS? 


SEQ 0092 


OUTERR 


DZRLER. 


Pil 


031546 


031550 
031550 
031550 
031550 


031552 
031556 
031564 
031566 
031572 


031572 
031572 
031572 
031574 
031574 
031574 


031576 


031576 


031576 


031576 
031602 
031610 
031612 


031614 
031614 


001405 
005302 
003321 
005037 
000716 


002156 


104005 

005237 002152 

022727 002152 000200 
001402 

000137 031144 


104005 


104001 


004737 021154 


104032 
000414 


104004 


MACY11 3001046) O3-NOV-77 10:02 PAGE 83-70 
O3-NOV-77 09: 54 


C 8 


KXTEST 30% - CHECK ZERO FILL ON WRITE 


73: 


100015: 


34S: 


100005: 


ENDTST 


L10063: 


. SBTTL 
BGNTST 


STARS 
jo RERAAAAAAAARARAAARAAAA AAA AAA AAA AA AAA AA AA AAA AAA AAA AAA AA AAA AAAS 


EMT 


ENDSEG 
EMT 


EMT 


CSESEG 
THP1 
TMP 1, #128. 
34S 

35% 


CSESEG 


CSETST 


EXIT TEST 

;DONE CHECKING NON-ZERO WORDS 
+NOQ, BRANCH 

+YES, SET EXP'D 9S ZEPO 

+ BRANCH BACK 


sEXIT TEST 
+%XEND OF SEGMENT%% 


;%%END OF SEGMENT%% 


+XXEND OF TESTXX 


XXTEST 31% - CHECK SECTOR BITS OF HEADER COMPARE 


+HXSTART OF TEST%X 


; TEST THAT ALL SECTOR BITS OF HEADER WORD CAN COMPARE 


+ UNIQUELY. 


WE TESTED THE HEADER COMPARE LOGIC EARLIER 


;BUT THAT WAS NOT AN EXTENSIVE TEST OF THE SECTOR BITS. 
; THE TEST PROCEDURE IS TO WRITE EACH SECTOR OF TRACK 
30 WITH THE SECTOR ADDRESS. THEN GO BACK AND READ 
EACH SECTOR. 
;WHICH WAS EXPECTED THEN WE HAVE AN ERROR 

ERROR PRINT OUT WILL GIVE SECTOR. EXPECTED AND RECEIVED 


STARS 
5 5 REXAAAAAAAAAAAT AA AAA AAA AAA AAA AAA AAA AA AAA AA AA AAA AAA AAA AAA AES 


JSR 
CKERFG 
EMT 
. WORD 
BGNSEG 
ENT 


PC, HOHONME 


CSEXIT 
L10064-. 


CSBSEG 


IF ANY SECTOR HAS ANY ote THEN THAT 


;HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


+%%START OF SEGMENT%% 


SEQ 0093 


OUTERR 


DZRLEA. 


MACY11 30(1046) 


Pil 03-NOV-7 


031616 


031622 
031622 


031624 
031630 
031634 
031640 
031642 


031644 
031652 
031660 
031666 
031672 
031674 
031700 
031700 
031702 
031704 
031710 
031716 
031720 


031724 
031724 


031726 
031732 
031736 
031740 
031742 


031744 
031752 


031760 


031766 
031772 


032032 


005037 


104004 


012702 
012701 
013722 
005301 
001374 


012777 
012777 
013777 
004537 
000012 
004537 


104010 
000320 
005237 
023727 
001342 
005037 


104004 


012702 
012701 
005022 
005301 
001375 


013777 
012777 


012777 
004537 
000014 
004537 


104010 
000216 


104006 


03-NOV-77 
7 09: 54 


002150 


002652 
000200 
002150 


177600 
002652 
002150 
020254 


021074 


002150 
002150 


002150 


002652 
000200 


002150 
002652 


177600 
020254 


021074 


020012 
002114 


016574 


150366 
150354 
150350 


o0cos0 


150264 
150254 


150252 


1$: 


199$: 


23: 


985. 
33: 


10S: 


8$: 


10:02 PAGE 83-71 
RXTEST 314% - CHECK SECTOR BITS 


CLR 
BGNSEG 
EMT 


THPO 


CSBSEG 


BUF. RZ 
#128. .R1 
eta 


2$ 


#-128. , ORLMP 
#BUF. ARLBA 
THPO, @RLOA 
R5. LOFUNC 


oo 


CSESCAPE 
10001$-. 
TMPO 
THPO, #40. 
199% 
THMPO 


fa) 
m 


CSBSEG 


TMPO. @RLOA 
#BUF, ARLBA 


#-128. . ARLMP 
R5. LOF UNC 


— 


EG 
CSESCAPE 
10002$-. 


RS. CHERR 
T. CRC 

8$ 

SEG 
CSESCAPE 
b+ aaa 


OF HEADER COMPARE 


+ CLEAR 


+%%START OF SEGMENT%% 


sWRITE A PATTERN FOR THE WRITE © 


. 
’ 


+ DONE, 
> IF NOT. GO BACK 


;ONE SECTOR'S WORTH 
ITE IT 


7 ONE SECTOR hn COUNT 


;WRITE FROM 


; 


OR 
+LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR WRITE TO FINISH 


+ CHECK FOR FL: LOE. 


;NEXT SECTOR 
+ALL DONE? 
+NO GO BACK 
> CLEAR 


ELSE EXIT SEG 


;%%START OF SEGMENT%% 


+CLEAR THE BUFFER FIRST 


+128 WORDS 


GET SECTOR 


+SETUP BUS ADDRESS 


READ A SECTOR 
+LOAD THE FUNCTION IN NEXT WORD 


CHECK FOR FL: LOE. 


ELSE EXIT SEG 


+ CHECK CNTLR FOR ERRORS 


7WAS ERROR A DCK?? 


+ YES.SEE IF WE A DUMP 


CHECK FOR FL: LOE. 


+ SKIP AROUND 


ELSE EXIT SEG 


= WE STILL WANT TO CHECK IT 
+ YES, CHECK FOR LOOP FIRST 


SEQ 0094 


OUTERR 


DZRLEA. P11 


MACY11 30(1046) 
O3-NOV-7 


032034 


032066 
032074 


032076 
032104 
032106 
032106 
032110 
032112 


032116 
032122 
032124 
032124 
032126 
032130 
032132 
032134 
032140 


032142 


032176 


032200 
032202 


032204 
032210 
032216 
032220 
032220 
032220 


032222 


032224 


005037 


001440 


022737 
001002 


104010 
000110 
005237 


005737 
001007 


104462 
000046 
012705 
014554 
005237 
000416 


013746 


062706 
104006 
005301 
001327 
005237 


023727 
001243 


104005 


104005 


7 09 


03-NOV-77 
: 54 


002120 
002112 
002156 


0 
002169 002156 


002120 016576 


002120 
002112 


002112 


002160 
002156 
002150 
015771 
000004 


000012 


002150 
002150 000050 


10:02 PAGE 83-72 
RETEST 314% - CHECK SECTOR BITS OF HEADER COMPARE 


SEQ 0095 


+CHECK NOW TO SEE IF WE READ THE RIGHT SECTOR 


995: 


5S: 


3335: 


9S: 


6S: 


100028: 


10001$: 
E 


100008: 


MOV 


CNDSEG 
ENT 
ENDSEG 


MT 
ENDSEG 


COCNT 

CHECK 

THPO. GODAT 
#BUF.R 
#128. .R1 
(R2)+, BODAT 
BODAT. GDDAT 
6$ 
COCNT. T. LNT 
333% 

SEG 
CSESCAPE 
10002$-. 
COCNT 


CHECK 


9$ 
38. . EMS0, ERR11 


TSERCODE 
38 

EMSO 
ERR11 


CHECK 
6$ 


; CLEAR NUMBER WE'RE TO PRINT 
;ALLOW HEADER ON FIRST PRINT 
> EXPECTED DATA 

; BUFFER 

;WORD COUNT 


, 


‘om ; CHECKED ENOUGH?? 
;CHECK FOR FL: LOE. ELSE EXIT SEG 


; ACCOUNT FOR IT 


;HEADER OR JUST DATA 
; JUST DATA 


’ 


; ACCOUNT FOR PRINT OF HEADER 


#FRMTS, THPO. GODAT, BODAT 


BDDAT. - (SP) 
GDDAT, - (SP) 
TMPO, -(SP) 


#FRNTS. - (SP) 


eu, - (SP) 
SP.RO 
CSPNTB 
#12, SP 


CSCLP1 


CSESEG 


CSESEG 


+ALL OF SECTOR CHECKED? 
+GO BACK IF NOT 
i 


NE? 
+NO, GO BACK 
;%Z%END OF SEGMENT%% 


+%%END OF SEGMENT%% 


>%%END OF SEGNENT%% 






OUTERR 














































DZRLEA. P11 


MACY11 30(1046) m 
O3-NOV-77 09: 54 


032224 
032226 
032226 
032226 


032230 
032230 


032230 


032230 
032234 
032242 
032244 


032246 
032246 


032250 


032276 


032334 


032336 
032342 
032350 
032356 
032362 
032364 
032370 
032370 





104005 


104001 


004737 


104032 
000372 


104004 
012700 


104010 
000300 


104010 


03-NOV-77 


021154 


002652 
000200 
125252 


002652 
177600 
147726 
020254 


021074 


020012 


147674 
002652 
177600 
020254 


021074 


147736 
147734 


147664 
147662 


BGNTST 


ENDTST 
L10064: 







. SBTTL 


2995: 


+ VERIFY 


10:02 PAGE 83-73 
RETEST 314% - CHECK SECTOR BITS OF HEADER COMPARE 


CSESEG 


ENT 


ENT 


JSR 
CKERFG 
EMT 
. WORD 
BGNSEG 
EMT 


CSETST 
KXTEST 324% - WRITE CHECK NPR INTEGRETY 
+ RXSTART OF TESTSX 


F 8 





PC, HDHOME 


CSEXIT 
L10065-. 


#128. ,R1 
so 
1 


2998 


#BUF, ARLBA 
#-128. . ARLMP 


aRLDA 

RS. LOFUNC 
RS, WTCROY 
SEG 
CSESCAPE 
10000$-. 
RS. CHERR 


G 
CSESCAPE 
10000$-. 


wn 
m 


+4XEND OF TESTS% 


+HEADS OVER TRACK 0 
*HEADS GO HOME OKAY 






STARS 

js RERAAAAAAARAAAAAAAA AAA AAA AAA AAA AA AAA AAA AA AAA A AAA AAA AAA AAA AAT 
CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE 
;UNIBUS. WE SET UP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS. 


STARS 
5s RERAAAAAAARAAAAAAAAAAAAAA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AAA AAT 


+ %%START OF SEGMENT%% 


>; SETUP AND WRITE 
;128 WORDS 

; WRITE 

; DONE ?? 


+LOAD BUS ADDRESS 
+WORD COUNT 
CLEAR DISK ADORE 


ss 









;LOAD THE FUNCTION IN NEXT WORD 
;WAIT FOR CONTROLLER READY 


+ CHECK FOR FL: LOE, 


ELSE EXIT SEG 


> CHECK CNTLR FOR ERRORS 


CHECK FOR FL: LOE. 


WRITE WiTrl READ BEFORE WRCHK 


@RLDA 

BUF, ARLBA 
#-128. . ARLMP 
RS. LDFUNC 


RS, WTCRDY 
CSESCAPE 


w 
m 
o 


ELSE EXIT SEG 


;LOAD THE FUNCTION IN NEXT WORD 


CHECK FOR FL: LOE. ELSE EXIT SEG 


OUTERR MACY11 30(1046) 
DZRLEA. P11 


032372 
032374 
032400 
032400 
032402 


032404 
032404 


032406 


032610 
032614 
032616 
032622 
032622 
032624 


03-NOV-77 


000242 
004537 


104010 
000232 


104004 


012746 


012700 
104027 
005301 
001367 


004537 


104462 
000000 
006772 
014256 


013700 
104036 


104010 
000024 


104461 
000001 


O3-NOV-77 


09: 54 


020012 


000340 
021146 
002122 
000003 


000010 
002132 
002652 
147564 
177600 
002156 
002124 
000002 
020562 
002156 
000201 
002U00 
002156 
000144 
000200 


000024 


020614 


002122 


002132 
020614 


147566 
147560 


002156 
002156 


002206 
002206 
002206 
147476 


147464 


1$: 


55: 


6S: 


10:02 PAGE 83-74 
SETEST 328% - WRITE CHECK NPR INTEGRETY 


. WORD 
JSR 
ESCAPE 
ENT 

. WORD 
BGNSEG 
ENT 


SETVEC 


100005$-. 
RS, CHERR 
SEG 


CSESCAPE 
10000$-. 


CSBSEG 


ERRVEC, #TRPHAN, #340 


#340, ™ (SP) 
#TRPHAN. -(SP) 
ERRVEC, -(SP) 


#BUF, dRLBA 
@RLDOA 
#-128. . ORLMP 
GODAT 

DR 1 VE. GODAT 
#WRCHK, GDDAT 


#100. .R1 


RS, AFTER 
0.,CRTIM. ERRS 
TSERCODE 


E 

ERRVEC 
ERRVEC, RO 
CSCVEC 
SeG 
CSESCAPE 
10001$-. 


TRPFLG 
7? 


$ 

RS. AFTER 

1. .£M57, ERRO 
yeene eee 


;CHECK CNTLR FOR ERRORS 


i CHECK FOR FL: LOE. ELSE EXIT SEG 


+%%START OF SEGMENT%% 


;SET UP FOR TRAP 


+CLEAR TRAP OCCURANCE 
BUS ADDRESS 

+LOAD DISK ADDRESS 
+WORD COUNT OF 128 
SET UP CSR TO LOAD 


;SET IN FUNCTION 

;LOAD FOR ERROR PRINTOUT 
+SET IN COMMAND 

;LOAD CROY 

;CLEAR (BIT 10) 

; ISSUE WRITE CHECK 

;WAIT FOR CRDY 

+NPR DONE 

> YES, 6% 

;WAIT A WHILE 


>A WHILE UP 
NO, GO BACK 


CONTROLLER TIMED OUT 


CLEAR VECTOR 


CHECK FOR FL: LOE, ELSE EXIT SEG 


;DID TRAP OCCUR? 
;NO 


; TRAP ON WRITE 


SEQ 0097 


OUTERR 
DZRLEA. 


MACY11 white 14 


Pil O3-NOV-77 


032626 
032630 
032632 


032632 
032632 
032632 
032634 
032634 
032634 


032636 
032636 
032636 


032640 
032640 


032640 


032640 
032644 
032652 
032654 


032656 
032656 


032660 
032664 
032670 
032674 
032676 


032744 


013277 
014044 


104005 


104005 


104001 


004737 


104032 
000214 


104004 


012700 
012701 
012720 
005301 
001374 


012777 
012777 


104010 
000122 


03-NOV-77 


09: 54 


021154 


002652 
000200 
125252 


002652 
177600 
147316 
020254 


021074 


020012 


147326 
147324 


10:02 PAGE 83-75 


H 8 


KXTEST 324% - WRITE CHECK NPR INTEGRETY 


73: 


100015: 


100008: 


ENDTST 


L10065: 


. SBTTL 
BGNTST 
STARS 


. WORD 
. WORD 


ENDSEG 


EMT 
ENDSEG 
ENT 


EMT 


ENS? 
ERRO 


CSESEG 


CSESEG 


CSETST 


+%%END OF SEGMENT%% 


;%%END OF SEGMENT%% 


+*XEND OF TESTXX 


XXTEST 33%x - WRITE CHECK FUNCTION 


;HXSTART OF TEST&X 


3 5 MERAAAAAAAAAAAAA AAA AA AAA LAA AAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
+CHECK OF WRITE CHECK LOGIC UNDER FLAG MODE 

; WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM 

WE CHECK THAT NO ERRORS OCCUR. 


;MEMORY (BUF). 


STARS 
js RAEMAKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


2995: 


JSR 
CKERFG 
ENT 
. WORD 


BGNSEG 
ENT 


PC, HDHOME 
CSEXIT 
L10066-. 


CS$BSEG 


#125252, (RO)¢ 
5995 


#BUF, ARLBA 
#-128., dRLMP 


@RLOA 

R5, LDFUNC 
RS, WTCRDY 
SEG 
CSESCAPE 
10000$-. 
RS. CHERR 


SEG 
CSESCAPE 
10000$-. 


;HEADS OVER TRACK 0 
+HEADS GO HOME OKAY 


+ %%START OF SEGMENT%% 


; SETUP AND WRITE 
+128 WORDS 

; WRITE 

; DONE ?? 


;LOAD BUS ADDRESS 
WORD COUNT 
CLEAR DISK ADDRESS 
+LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR CONTROLLER READY 
CHECK FOR FL: LOE. ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 
CHECK FOR FL: LOE, ELSE EXIT SEG 


SEQ 0098 


OUTERR 


DZRLEA. 


MACY11 30(1046) 
Pil 03-NOV-77 


032746 
032746 


032750 


033012 


033014. 


033016 
033016 


033020 
033020 
033024 
033032 
033040 
033044 


033046 
033052 


- 033052 


033054 


033056 
033062 


033070 


033072 
033072 


104004 


005077 


004537 
104010 
000060 
004537 
104010 
000050 
104004 


005077 
012777 
012777 
004537 
000002 
004537 
104010 
000006 


004537 


104005 


104095 


104005 


104001 


09:5 


147262 
002652 
177600 
020254 


021074 


020012 


147212 
177600 
002652 
020254 


021074 


020012 


ee 


147252 
147250 


147206 
147174 


10:02 PAGE 83-76 


XTEST 334% - WRITE CHECK FUNCTION 


+%%START OF SEGMENT%% 


; VERIFY WRITE WITH READ BEFORE WRCHK 


35: 


100028: 


100015: 


100005: 


ENOTST 


L 10066: 


. SBTTL 
BGNTST 


BGNSEG 

ENT CSBSEG 

CLR ORLOA 

MOV #BUF, ARLBA 
MoV #-128. . ARLMP 
JSR RS. LOF UNC 
READ 

JSR RS, WTCROY 
ESCAPE SEG 

ENT CSESCAPE 
.WORD 100015-. 
JSR RS, CHERR 
ESCAPE SEG 

EMT CSESCAPE 
.WORD 10001$-. 
BGNSEG 

ENT CSBSEG 

CLR @RLDA 

MoV #-128. , ORLMP 
MoV #BUF, ARLBA 
JSR RS, LOFUNC 
WRCHK 

JSR RS, WTCRDY 
ESCAPE SEG 

EMT CSESCAPE 
.WORD 10002%-. 
JSR RS, CHERR 
ENDSEG 

EMT CSESEG 
ENDSEG 

EMT CSESEG 
ENDSEG 

ENT CSESEG 

EMT CSETST 
*ATEST 


;LOAD THE FUNCTION IN NEXT WORD 


+CHECK FOR FL: LOE. ELSE EXIT SEG 


; CHECK CNTLR FOR ERRORS 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


+%%START OF SEGMENT%% 


>WORD COUNT 
+>BUS ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 
+WRITE CHECK 


;WAIT FOR CONTROLLER READY 
CHECK FOR FL: LOE. ELSE EXIT SEG 


*CHECK CNTLR FOR ERRORS 
;%%END OF SEGMENT%% 


>%%END OF SEGMENT%% 


;%Z%END OF SEGMENT%% 


;HXEND OF TESTAX 


34uxe - WRITE CHECK FUNCTION INTERRUPT 


;HXSTART OF TEST&% 


STARS 
jj MEXKAAAAAAAA AAA AAA AAA AAA A AAAS AAA AAAS 


SEQ 0099 


OUTERR 


DZRLEA. 


+WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM MEMORY (BUF). 


STA 
js RERAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA AA AA AAA AA AAA AA AAA AAAS AAS 


J 8 


WE DO NOT CHECK RLDA OR RLBA 


+HEADS OVER TRACK O 
;HEADS GO HOME OKAY 


+%%START OF 
+; SETUP AND WRITE 
; RDS 
; DONE ?? 


+LOAD BUS ADDRESS 
WORD COUNT 


CLEAR DISK ADDRESS 
;LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR CONTROLLE 
+ CHECK FOR FL. LOE. 


CHECK CNTL 
+ CHECK FOR FL: LOE. 


» LOAD THE FUNCTION IN NEXT WORD 


CHECK FOR FL: LOE. 


CHECK CNTL 
+ CHECK FOR FL: LOE. 


SEGMENT%% 


R READY 
ELSE EXIT SEG 


R FOR ERRORS 
ELSE EXIT SEG 


ELSE EXIT SEG 


R FOR ERRORS 


ELSE EXIT SEG 


;%%START OF SEGMENT%% 


MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-77 
Pil O3-NOV-77 09: 54 RETEST 34x - WRITE CHECK FUNCTION INTERRUPT 
+CHECK OF WRITE CHECK LOGIC UNDER INTERRUPT MODE 
+WE CHECK THAT NO ERRORS OCCUR. 
; INCREMENT AT THIS TIME. 
033072 RS 
033072 004737 021154 JSR PC, HOHONE 
033076 CKERFG 
033104 104032 EMT CSEXIT 
033106 000252 .WORD 110067-. 
033110 BGNSEG 
033110 104004 EMT CS$BSEG 
033112 012700 002652 MOV #BUF,RO 
033116 012701 000200 MOV #128. ,R1 
033122 012720 125252 2993: MOV #125252, (RO)+ 
033126 005301 DEC R1 
033130 001374 BNE 299% 
033132 012777 002652 147074 MoV #BUF, ARLBA 
033140 012777 177600 147072 MoV #-128. . ORLMP 
033146 005077 147064 CLR @RLDA 
033152 004537 O2C254 JSR R5. LOFUNC 
033156 000012 WRITE 
033160 004537 021074 SR RS. WTCRDY 
033164 ESCAPE SEG 
033164 104010 EMT CSESCAPE 
033166 000170 .WORD 10000S-. 
033170 004537 020012 JSR R5, CHERR 
033174 ESCAPE SEG 
033174 104010 MT CSESCAPE 
033176 000160 .WORD 10000$-. 
; VERIFY WRITE WITH READ BEFORE WRCHK - 
033200 005077 147032 CLR ORLDA 
033204 012777 002652 147022 MoV #BUF. dRLBA 
033212 012777 177600 147020 MOV #-128. . ORLMP 
033220 004537 020254 JSR R5, LDF UNC 
033224 000014 READ 
033226 004537 021074 JSR RS. WTCROY 
033232 ESCAPE SEG 
033232 104010 ENT CSESCAPE 
033234 000122 .WORD 10000$-. 
033236 004537 020012 JSR R5, CHERR 
033242 ESCAPE SEG 
033242 104010 ENT CSESCAPE 
033244 000112 .WORD 100005-. 
033246 BGNSEG 
033246 104004 EMT CSBSEG 
033250 005037 002134 CLR INTFLG 


CLEAR INTERRUPT OCCURANCE FLAG 


SEQ 0100 


K 8 
OUTERR — 30(1046) — 10:02 PAGE 83-78 


DZRLEA. O3-NOV-77 09 RXTEST 34R% - WRITE CHECK FUNCTION INTERRUPT SEQ 0101 
5885 033254 005077 146756 CLR ORLOA 
5886 033260 012777 177600 146752 MOV #-128. , ORLMP +SET UP WORD COUNT 
eens 033266 012777 002652 146740 MOV BUF. ARLBA +SET UP BUS ADDRESS 
5889 033274 SETPRI #PRIOO PRIORITY TO O 
(3) 033274 012700 000000 MOV #PR100,R0 
(3) 033300 104041 ENT CSSPRI 
5890 033302 004537 020254 JSR R5, LOFUNC ;LOAD THE FUNCTION IN NEXT WORD 
5891 033306 000102 WRCHK! INTEN ;WRITE CHECK UNDER INTERRUPT. 
5892 033310 004537 021074 JSR RS. WTCROY +WAIT FOR INTERRUPT 
5893 033314 ESCAPE SEG + CHECK FOR FL: LOE, ELSE EXIT SEG 
(3) 033314 104010 ENT CSESCAPE 
mt 033316 O0C036 .WORD 100015-. 
5895 033320 SETPRI #PRIO7 SET PRIORITY TO 7 
(3) 033320 012700 000340 MoV #PR107,R0 
(3) 033324 104041 oF CSSPRI 
5896 033326 005737 002134 TST INTFLG *DIO INTERRUPT OCCUR? 
ol 033332 001004 BNE 2$ + YES-BRANCH NO-REPORT 
5899 033334 ERRDF 4.,EM60, ERRO *WRITE DID NOT INTERRUPT 
(3) O33334 104462 TRAP TSERCODE 
(5) 033336 O00004 .WORD 4 
(5) O33340 013337 .WORD EN6O 
(5) O33342 014044 .WORD ERRO 
5900 033344 23: ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) O33344 104010 ENT CSESCAPE 
R .. 033346 000006 .WORD 100015-. 
1 
pot 033350 004537 020012 JSR RS, CHERR + CHECK CNTLR FOR ERRORS 
5904 033354 ENDSEG +%%END OF SEGMENT%% 
(3) 033354 100015: 
(3) 033354 104005 ENT CSESEG 
5905 933356 ENDSEG +%Z%END OF SEGMENT%% 
(3) 033356 10000S: 
(3) 033356 104005 EMT CSESEG 
5906 033360 ENDTST ;XXEND OF TESTXX 
(3) 033360 L10067: 
mL, 033360 104001 ENT CSETST 
5908 .SBTTL TEST 35% - PROPER INCREMENT OF RLBA ON WRITE CHECK 
5909 
5910 033362 BGNTST ;XXSTART OF TESTXX 
5911 
5912 
5913 033362 STARS 
(2) 3s RRRAAAAAAAAAA TATRA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
5914 ;CHECK THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE 
5915 ;WRITE CHECK WAS FINISHED THE RLBA SHOULO BE 128 WORDS (256 BYTES) 
5916 ;CREATER. STARTING RLBA IS “BUF". ENDING SHOULD BE “BUF + 256." 
5917 ;WE WILL MONITOR ALL ERRORS AND REPORT THEM ACCORDINGLY 
5918 033362 STARS 
(2) jo REXAAAAAAAAAAA TATA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AES 
5919 


L 8 





MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-79 
Pil O3-NOV-77 O9: 54 XXTEST 354% - PROPER INCREMENT OF RLBA ON WRITE CHECK SEQ 0102 
033362 004737 021154 JSR PC. HOHONE +HEADS OVER TRACK O 
033366 +HEADS GO HOME OKAY 
033374 104032 CSEXIT 
033376 000256 : L10070-. 
033400 +%%START OF SEGMENT%% 
033400 104004 EMT CSBSEG 
033402 012700 002652 #BUF,.RO 4 1 byt a WRITE 
033406 012701 000209 M #128. ,R1 +128 WORDS 
033412 012720 125252 : #125252, (RO)+ WR | TE 
033416 005301 D Ri + DONE ?? 
033420 001374 299% 
5932 033422 012777 002652 146604 MOV #BUF. ARLBA *LOAD BUS en 
5933 033430 012777 177600 146602 MoV #-128. , ORLMP +WORD COUN 
5934 033436 005077 146574 CLR ORLDA + CLEAR Disk ADDRESS 
5935 033442 004537 020254 JSR RS. LOFUNC +LOAD THE FUNCTION IN NEXT WORD 
5936 O33446 000012 WRITE 
5937 033450 004537 021074 JSR R5, WTCRDY ;WAIT FOR CONTROLLER READY 
5938 033454 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) O33454 104010 EMT CSESCAPE 
(3) 033456 000174 .WORD 100005-. 
5939 033460 004537 020012 JSR RS, CHERR CHECK CNTLR FOR ERRORS 
5940 033464 ESCAPE SEG *+CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) O33464% 104010 ENT CSESCAPE 
(3) 033466 000164 .WORD 100005-. 
5941 7 VERIFY WRITE WITH READ BEFORE WRCHK 
5942 
5943 033470 005077 146542 CLR @RLDA 
5944 033474 012777 002652 146532 MOV #BUF. ARLBA 
5945 033502 012777 177600 146530 MOV #-128.. ORLMP 
5946 033510 004537 020254 JSR RS. LDFUNC *LOAD THE FUNCTION IN NEXT WORD 
5947 033514 000014 | READ 
5948 033516 004537 021074 JSR RS, WTCRDY 
5949 033522 ESCAPE SEG *>CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 033522 104010 EMT CSESCAPE 
(3) 033524 000126 .WORD 10000$-. 
5950 033526 004537 020012 JSR RS. CHERR CHECK CNTLR FOR ERRORS 
5951 033532 ESCAPE SEG + CHECK FOR FL: LOE, ELSE EXIT SEG 
(3) 033532 104010 ENT CSESCAPE 
acts 033534 000116 .WORD 10000S-. 
5953 033536 BGNSEG ;%%START OF SEGMENT%% 
(3) 033536 104004 ENT CSBSEG 
5954 : 
5955 033540 3S: 
5956 033540 005077 146472 CLR @RLDA 
5957 033544 012777 002652 146462 MoV BUF. ARLBA +SET UP BUS ADDRESS 
5958 033552 012777 177600 146460 MoV #-128. , ORLMP +WORD COUNT 
5959 033560 012737 002652 002156 MoV #BUF. GDDAT FORM EXPECTED BUS ADDRESS 
5960 033566 062737 000400 002156 ADD #256. . GODAT sAFTER WRITE 
5961 , 
5962 033574 004537 020254 JSR RS. LDF UNC +LOAD THE FUNCTION IN NEXT WORD 


5963 033600 000002 WRCHK WRITE CHECK 
5964 


033602 004537 021074 JSR RS. WTCRDY +WAIT FOR CONTROLLER READY 





OUTERR 


DZRLEA. 


MACY11 30(1046) 
Pil 03-NOV-77 


033606 
033606 
033610 


033612 


033640 
033640 
033642 
033644 
033646 


033650 


033650 
033650 
033650 
033652 
033652 
033652 
033654 
033654 
033654 


033656 
033656 


033656 


033714 


104010 
000040 


004537 
104010 
000030 
017737 


023737 
001404 


104462 
000005 
013375 
014210 


104005 


104005 


104001 


004737 


104032 
000254 


001374 


O3-NOV-77 10:02 PAGE 83-80 
09: 54 KXTEST 35%% - PROPER INCREMENT OF RLBA ON WRITE CHECK 


020012 


146406 002160 
002169 002156 


021154 


002652 
000200 
125252 


23: 


100015: 


10000S$: 


ENDTST 


L10070: 


. SBTTL 
BGNTST 


STARS 
3s REXAAAAAAAAAAAAAAAAAAAAAAA AAA AAA AA AAA AAA AAAS A AAA A TAA AAA ATTA 
;CHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE CHECK WAS FINISHED. 


ESCAPE 
ENT 
. WORD 


ENDSEG 


EMT 
ENDSEG 


EMT 


EMT 


SEG 
CSESCAPE 
10001$-. 


R5, CHERR 


SEG 

CSESCAP 
001$-. 
ORLBA, BODAT 
a 


om 
oO 


5. EM61,ERRY 
 paanaanen 


EM61 
ERRY 


CSESEG 
CSESEG 


CSETST 


+CHECK FOR FL: LOE, ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


READ 'RLBA' FOR PRESENT ADDRESS 
+DID ‘BA’ INCREMENT PROPERLY? 
+YES. CONTINUE 


+BA DID NOT INCREMENT 


+%%END OF SEGMENT%% 


+%Z%END OF SEGMENT%% 


;¥XEND OF TESTX% 


XXTEST 36% - PROPER INCREMENT OF RLDA ON WRITE CHECK 


+HXSTART OF TESTX% 


3A FULL SECTOR WRITE CHECK THE RLDA SHOULD REFLECT AN INCREMENT 
“GODAT" WAS THE EXPECTED RLDA. 


| hy SECOTR. 
5s REXAAAAAAARAAAAAA AAA AA TATA AAA AAA AAA AAA AAA AA AA AAA AA AA AAA AAA AAAS 


2995: 


PC. HDHONME 
CSEXIT 
L10071-. 
CSBSEG 
#BUF,RO 


#128. .R1 
Si Stabe, eee 


2998 


+HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


> %%START OF SEGMENT%% 


;SETUP AND WRITE 
+128 WORDS 

; WRITE 

; DONE ?? 


SEQ 0103 


OUTERR 


DZRLEA. P11 


MACY11 30(1046) 
03-NOV-77 


033716 
033724 


033762 


033764 


034030 


034032 
034032 


034130 


012777 


104010 
000172 
004537 


104010 
000162 


005077 
012777 
012777 
004537 
000014 
004537 


104010 
000124 
004537 


104010 
000114 


104004 


013737 
023737 
001404 


O3-NOV-77 10:02 PAGE 83-81 
09: 54 SETEST 364% - PROPER INCREMENT OF RLDA ON WRITE CHECK 


002652 146310 
177600 146306 
146300 
020254 


021074 


020012 


146246 
002652 146236 
177600 146234 
020254 


021074 


020012 


002156 
002156 146170 
002156 
177600 146160 
002652 146146 


020254 
021074 


020012 


002222 002160 
002156 00216C 


VERIFY 


3$: 


;LOAD BUS ADDRESS 
7CLEAR DISK ADDRESS 
;LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR CONTROLLER READY 
CHECK FOR FL: LOE, ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


+LOAD THE FUNCT:0N IN NEXT WORD 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


+ CHECK CNTLR FOR ERRORS 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


+%%START OF SEGMENT%% 


+SETUP DISK ADDRESS 

CREATE EXPECTED SECTOR 

+WOROD COUNT 

+ SETUP BUS ADDRESS é 


>LOAD THE FUNCTION IN NEXT WORD 
+WRITE CHECK 
+WAIT FOR CONTROLLER READY 
+ CHECK FOR FL: LOE, ELSE EXIT SEG 


+ CHECK CNTLR FOR ERRORS 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


READ DISK ADDRESS 
+DID SECTOR INCREMENT PROPERLY 


MOV #BUF, ARLBA 
MOV #-128. . ORLMP 
CLR @RLOA 

JSR RS. LDFUNC 
WRITE 

JSR R5. HTCROY 
ESCAPE SEG 
ENT CSESCAPE 
.WORD 10000$-. 

JSR RS. CHERR 
ESCAPE SEG 
EMT CSESCAPE 
.WORD 100005-. 
WRITE WITH READ BEFORE WRCHK 
CLR ORLOA 

MOV #BUF. ARLBA 
MoV #-128. . RLMP 
JSR RS. LDFUNC 
READ 

JSR RS. HTCROY 
ESCAPE SEG 

ENT CSESCAPE 
.WORD 10000S-. 
JSR R5, CHERR 
ESCAPE SEG . 

ENT CSESCAPE 
.WORD 100005-. 
BGNSEG 
EMT CSBSEG 

CLR GODAT 

MOV GDDAT. ARLDA 
INC GDDAT * 
MOV #-128. . ARLMP 
MOV #BUF. ARLBA 
JSR RS. LDFUNC 
WRCHK 

JSR RS. WTCROY 
ESCAPE SEG 

MT CSESCAPE 
.WORD 100015-. 

SR R5. CHERR 
ESCAPE SEG 

ENT CSESCAPE 
.WORD 100015-. 
MOV E: DA. BDDAT 
CMP GODAT. BODAT 
BEQ 2$ 


+ YES. BRANCH NO, REPORT ERROR 


SEQ 0104 


OUTERR 


DZRLEA. 


MACY11_ 301046) 


Pil 


034132 


034140 
034142 


034142 
034142 
034142 
034144 
034144 
O34144 
034146 
034146 
034146 


034150 
034150 


034150 


034150 
034154 
034162 
034164 


034166 
034166 


034170 
034176 


034254 


014210 


104005 


104005 


104001 


004737 
104032 
000354 
104004 
012737 


001374 


012777 
012777 
013737 
053737 
013777 


021154 


000000 
000000 
002652 
000201 
125252 


002652 
177577 
002152 
002150 
002156 


03-NOV-77 
O3-NOV-77 09: 54 


002150 
002152 


146002 
146000 
002156 
002156 
145754 


23: 


10001$: 


10000S: 


ENDTST 


L10071: 


. SBTTL 
BGNTST 


STARS 
js REXAAAAAAAAAAAARARAAAAAALAAAAA AAA AA AAA AA AA AA AAA AA AA AAA AAA AAA AAS 


10:02 PAGE 83-82 
XXTEST 362% - PROPER INCREMENT 


ENDSEG 
EMT 
ENDSEG 
EMT 


EMT 


6. , EN62, ERRY 
mate: 


EM62 
ERRY 


CSESEG 
CSESEG 


CSETST 


OF RLDA ON WRITE CHECK 
DA DID NOT INCREMENT 


+%%END OF SEGMENT%% 


+%%END OF SEGMENT%% 


;XXEND OF TESTXX 


XATEST 37% - MULTIPLE SECTOR WRITE CHECK 


;HXSTART OF TESTX% 


;CHECK FOR MULTIPLE SECTOR WRITE CHECK. THIS TEST CHECKS 

; THAT TWO SECTORS CAN BE SUCCESSFULLY CHECKED. WE LOAD 

A WORD COUNT OF 129 WORDS (ONE SECTOR + 1 WORD) STARTING AT 
;SECTOR O THRU SECTOR 37 AND VERIFY THAT THE RLOA DOES 


— INCREMENT EACH TIME. 
5s RXXKKAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA ETS 


2998: 


1$: 


PC, HDHOME 


CSEXIT 
L10072-. 


CSBSEG 


#0, THPO 
#0, THP1 
#BUF,RO 


#129. ,R1 
#125252, (RO)+ 
Ri 

2998 

#BUF. ARLBA 
#-129.. ARLMP 
TMP 1, GODAT 


THPO, GDDAT 
GODAT. @RLDA 


+HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


; %%START OF SEGMENT%% 


;SETUP AND WRITE 
+129 WORDS 

> WRITE 

+ DONE?? 


LOAD BUS ADDRESS ” 


+WORD COUNT 





SEQ 0105 


Cc 9 


OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-83 . 

DZRLEA. P11 03-NOV-77 09: 54 RXTEST 374% - MULTIPLE SECTOR WRITE CHECK SEQ 0106 
6086 034262 004537 020254 JSR RS, LOFUNC ;LOAD THE FUNCTION IN NEXT WORD 
6087 034266 000012 WRITE 
6088 034270 004537 021074 JSR RS, WTCROY ;+WAIT FOR CONTROLLER READY 
6089 034274 ESCAPE SEG + CHECK FOR FL: LOE, ELSE EXIT SEG 

(3) 034274 104010 EMT CSESCAPE 
(3) 034276 000240 .WORD 100005-. 
6090 034300 004537 020012 JSR RS. CHERR + CHECK CNTLR FOR ERRORS 
6091 034304 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) O34304 104010 EMT CSESCAPE 
mE 034306 000230 .WORD 10000$-. 
34 +VERIFY WRITE WITH READ BEFORE WRCHK 
6095 034310 013737 002152 002156 MoV THP 1, GDDAT 
6096 034316 053737 002150 002156 BIS TMPO, GODAT 
6097 034324 013777 002156 145704 MOV GDDAT. ARLDA 
6098 034332 012777 002652 145674 MOV #BUF, ARLBA 
6099 O34340 012777 177577 145672 MoV #-129. . ORLMP 
6100 O34346 004537 020254 JSR RS. LOFUNC +LOAD THE FUNCTION IN NEXT WORD 

. 6101 034352 000014 READ 
6102 O34354 004537 021074 JSR RS, WTCRDY 
6103 034360 ESCAPE SEG CHECK FOR FL: LOE, ELSE EXIT SEG 

(3) 034360 104010 EMT CSESCAPE 
(3) 034362 000154 .WORD 10000$-. 
6104 O34364 004537 620012 JSR R5, CHERR CHECK CNTLR FOR ERRORS 
6105 034370 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 034370 104010 ENT CSESCAPE 
4 034372 000144 .WORD 10000S-. 
61 
6107 034374 BGNSEG +%%START OF SEGMENT%% 
(3) 034374 104004 ENT CSBSEG 
6108 
6109 
6110 034376 013737 002152 002156 MOV TMP 1, GDDAT GET CYLINDER 
6111 O34404% 053737 002150 002156 BIS TMPO, GDDAT GET SECTOR 
6112 O34412 013777 002156 145616 MOV GDDAT. @RLDA +SET DISK ADDRESS-SECTOR 0 
6113 034420 062737 000002 002156 ADD #2, GDDAT +SET EXPECTED + 2 
611% 034426 012777 002652 145600 MOV #BUF, ARLBA +SET BUS ADDRESS 
6115 O34434 012777 177577 145576 MoV #-129., dRLMP +WORD COUNT-SECTOR+1 WORD 
6116 
6117 O34442 004537 020254 JSR RS, LDFUNC +LOAD THE FUNCTION IN NEXT WORD 
6118 O3444%6 000002 WRCHK +WRITE CHECK 
6119 O34450 004537 021074 JSR R5, WTCROY *WAIT FOR CONTROLLER READY? 
6120 O34454 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) O34454 104010 EMT CSESCAPE 
aS. 034456 000042 .WORD 10001S-. 
121 
6122 034460 004537 020012 JSR RS. CHERR CHECK CNTLR FOR ERRORS 
6123 034464 ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) O34464 104010 ENT CSESCAPE 
a 034466 000032 .WORD 10001$-. 
1 . 
6125 034470 013737 002222 002160 MoV E. OA. BODAT READ DISK ADDRESS 
6126 034476 023737 002160 002156 CMP BODAT. GDDAT + 1S DISK ADDRESS CORRECT 
6127 034504 001404 BEQ 2$ YES, BRANCH NO, REPORT ERROR 


OUTERR 


DZRLEA. 


Pil 


MACY11 30(1046) 
O3-NOV-77 09: 54 


034514 


034516 
034516 


034520 
034520 
034520 


034522 
034526 
034534 
034536 
034536 
034536 
034540 
034540 
034540 


034542 
034542 


034542 


034542 
O34546 
034554 
034556 


034560 
034560 


034634 


014210 


104006 


104005 
005237 


022737 
001233 


104005 


104001 


004737 


104032 
000262 


012777 
012777 
005077 
004537 


000012 
004537 


104010 


O03-NOV-77 


002150 


000046 002150 


021154 


002652 
000200 
125252 


002652 
177600 
145414 
020254 


021074 


145424 
145422 


10:02 PAGE 83-84 


RXTEST 374% - MULTIPLE SECTOR WRITE CHECK 


23: 


100015: 


10000$: 


ENDTST 


L10072: 


. SBTTL 
BGNTST 


STARS 

3s RMERAAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAS 
FORCE A DOCK WITH WRITE CHECK. THIS 1S DONE BY WRITING 

3A SECTOR AND CHANGING A WORD IN MEMORY BEFORE WRITE CHECK 


CKLOOP 
ENT 
ENDSEG 
EMT 


EMT 
AXTEST 


71S tSSUED.. 


STARS 


3 5 RMXXKAAAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA EE 


2995: 


JSR 
CKERFG 
ENT 


7. ,EN63, ERRY 
— 


EN63 
ERRY 


CSCLP1 
CSESEG 
TMPO 
#46, TMPO 
1$ 


CSESEG 


CSETST 
38xk - FORCE OCK WITH WRITE CHECK 


PC, HDHOME 
CSEXIT 
L10073-. 
CSBSEG 
#BUF.RO 

#128. .R1 
oe 
2998 


#BUF, ARLBA 
#-128. , ORLMP 


aRLOA 

RS, LDF UNC 
RS, WTCROY 
CSESCAPE 


“ 
m 
oe 


+ DISK ADDRESS NOT CORRECT 


+%%END OF SEGMENT%% 


;NEXT SECTOR 
;AT END? 
;NO, GO BACK 
;%%END OF SEGMENT%% 


+¥XEND OF TEST&X 


+KXSTART OF TESTSX 


+HEADS OVER TRACK 0 
;HEADS GO HOME OKAY 


;>%%START OF SEGMENT%% 


+ SETUP AND WRITE 
+128 WORDS 
WRITE 

+ DONE?? 


+LOAD BUS ADDRESS 

+WORD COUNT 

+CLEAR DISK ADDRESS 
;LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR CONTROLLER READY 
+; CHECK FOR FL: LOE. ELSE EXIT SEG 


; 


SEQ 0107 


OUTERR 


DZRLER. P1 


— 3 


034636 
034640 
O34644 
O34644 
034646 


034650 
034654 
034662 
034670 
034674 
034676 
034702 
034702 
034704 
034706 
034712 
034712 
034714 


034716 
034716 


034720 
034724 
034730 
034736 


034744 


034756 
034760 


034762 
034770 
034776 
035004 
035006 
035012 
035012 


035014 
035022 


035030 
035032 


035034 


0( 1046) 


03-NOV-77 


000200 
004537 


104010 
000170 


005077 


004537 


104010 
000132 
004537 


104010 
000122 


104004 


005037 
005077 
012777 
012777 


004537 
000002 
004537 


104010 
000054 


013737 
042737 
022737 
001402 
004537 
104006 
022737 
001404 
104462 


014044 


03-NOV-77 
09: 54 


020012 


145362 
002652 
177609 
020254 


021074 


020012 


002652 
145306 
002652 
177600 
020254 


021074 


002216 
001777 
104000 


020012 


104000 


145352 
145350 


145276 
145274 


002150 
002150 
002150 


002150 


10:02 PAGE 83-85 


RXTEST 38%% - FORCE DOCK WITH WRITE CHECK 


+ VERIFY 


18: 


25: 


.WORD  10000$-. 

JSR RS, CHERR ;CHECK CNTLR FOR ERRORS 
ESCAPE SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 
EMT CSESCAPE 

-WORD 10000$-. 

WRITE WITH READ BEFORE WRCHK 

CLR aRLOA 

nov #BUF, ARLBA 

Mov #-128. , ARLMP 

JSR RS, LDF UNC ;LOAD THE FUNCTION IN NEXT WORD 
JSR RS, WTCRDY 

ESCAPE SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 
EMT CSESCAPE 

-WORD 10000S-. 

JSR RS, CHERR ;CHECK CNTLR FOR ERRORS 
ESCAPE SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 
EMT CSESCAPE 

-WORD 10000S-. 

BGNSEG ;%%START OF SEGMENT%% 
ENT C$BSEG 

CLR BUF 

CLR aRLOA 

Nov #BUF, ARLBA ;SETTING SECTOR 40 OF CYL. ADDR. 
Mov #-128.,dRLMP § ; WORD COUNT 

JSR RS, LOFUNC ;LOAD THE FUNCTION IN NEXT WORD 
WRCHK ;WRITE CHECK 

JSR RS, HTCRDY ;WAIT FOR CONTROLLER READY 
ESCAPE SEG ; CHECK FOR FL: LOE, ELSE EXIT SEG 
EMT CSESCAPE 

-WORD 10001S-. 

Mov E. CS, THPO ;GET RLCS 

BIC #1777, THPO ;SAVE ERROR BITS 

CMP @BITIS!BITt1,TMPO ;DCK SET 

BEQ 1$ 7 YES, CONTINUE 

JSR RS, CHERR 

CKLOOP 

ENT CSCLP1 

CMP #BITIS!BITI1, THPO 

BEQ 23 

ERRDF  23.,EN65, ERRO 

TRAP  TSERCODE 

-WORD 23 

-WORD EN6S 

-WORD  ERRO 


+WHEN FORCED 


SEQ 0108 






























Pil 


MACY11 301046) 
03-NOV-77 


035034 


0 
035040 


035042 
O3E04%2 


035042 


035042 
035046 
035054 
035056 


035060 
035060 


035062 


035144 
035146 


035150 
035154 
035162 
035170 
035174 


104005 


104005 


104001 


004737 


104032 
000322 


104004 


012700 
012701 
012720 
005301 
001374 


012777 
012777 


004537 


104010 
000240 
004537 


104010 
000230 


005077 
012777 
012777 
004537 
000014 


09:5 


021154 


002652 
000200 
125252 


002652 
177600 
145114 
020254 


021074 


020012 


145062 
002652 
177600 
020254 


this 


145124 
145122 


145052 
145050 


ae 


RXTEST 384% - FORCE OCK WITH WRITE CHECK 


100015: 


10000$: 
ENDTST 
L10073: 
. SBTTL 
BGNTST 


STARS 
jj RERAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AEE 
+FORCE A OCK IN INTERRUPT MODE 


STARS 
+s RMXXKAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AA AAA AAAS 


2995: 


+ VERIFY 


ENDSEG 


EMT 
ENDSE 


EMT 


EMT 


CSESEG 


CSESEG 


CSETST 


+%2%END OF SEGMENT%% 


+%%END OF SEGMENT%% 


+¥XEND OF TESTXX 


XKTEST 394k - FORCE DCK WITH WRITE CHECK INTERRUPT 


JSR 
CKERFG 
EMT 
. WORD 
BGNSEG 
EMT 


. WORD 
WRITE WI 


PC, HDHOME 
CSEXIT 
L10074-. 
CSBSEG 
#BUF,RO 

#128. .R1 
#125252, (RO)+ 
Ri 

299% 


#BUF, ARLBA 
#-128. . dRLMP 


@RLO 
R5. LDFUNC 
lama 


CSESCAPE 
10000$-. 
RS. CHERR 
StG 

CSESCAPE 
10000$-. 


4) 
m 


+ XXSTART OF 


+HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


+ %%START OF 


;SETUP AND WRITE 
+128 WORDS 

Zc WRITE 

; DONE ?? 


+LOAD BUS ADDRESS 
+WORD COUNT 
+CLEAR DISK ADDRESS 


+LOAD THE FUNCTION IN NEXT WORD 


*WAIT FOR CONTROLLE 
CHECK FOR FL: LOE. 


+ CHECK CNTL 
+CHECK FOR FL: LOE. 


TH READ BEFORE WRCHK 


@RLDA 
#BUF, ARLBA 

#-128. . ORLMP 
RS. LDF UNC 


>LOAD THE FUNCTION IN NEXT WORD 


TESTXX 


SEGMENT%% 


R READY 
ELSE EXIT SEG 


R FOR ERRORS 
ELSE EXIT SEG 





—eccc.cc_c6_c_ Tcl: _— OOS eee 


10:02 PAGE 83-86 


SEQ 0109 


G 9 
OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-87 


DZRLEA. P11 O3-NOV-77 09: 54 KXTEST 394% - FORCE DOCK WITH WRITE CHECK INTERRUPT 2 SEQ 0110 
6250 035176 004537 021074 JSR RS, WTCROY 
6251 035202 ESCAPE SEG ;CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 035202 104010 EMT CSESCAPE 
(3) 035204 000172 .WORD 100005- 
6252 035206 004537 020012 JSR RS, CHERR + CHECK CNTLR FOR ERRORS 
6253 035212 ESCAPE SEG + CHECK FOR FL: LOE, ELSE EXIT SEG 
(3) 035212 104010 EMT CSESCAPE 
sams 035214 000162 .WORD 10000S-. 
6255 035216 BGNSEG ;%%START OF SEGMENT%% 
+4 035216 104004 EMT CSBSEG 
6257 035220 SETPRI #PRIOO 
(3) 035220 012700 000000 Mov #PR100,. RO 
(3) 035224 104041 EMT CSSPRI 
6258 035226 005037 002134 CLR INTFLG ;CLEAR INTERRUPT OCCURANCE FLAG 
6259 035232 005037 002652 CLR BUF 
6260 035236 005077 144774 CLR @RLDA 
6261 035242 012777 002652 144764 MOV #BUF, ARLBA +SETTING SECTOR 4O OF CYL. ADOR. 
cae 035250 012777 177600 144762 MOV #-128. . ORLMP WORD COUNT 
6264 035256 004537 020254 JSR RS. LDF UNC ;LOAD THE FUNCTION IN NEXT WORD 
6265 035262 000192 WRCHK! INTEN WRITE CHECK 
6266 035264 004537 021074 JSR R5, WTCRDY WAIT FOR CONTROLLER READY 
6267 035270 CKLOOP 
(3) 035270 104006 EMT CSCLP1 
6268 035272 SETPRI #PRIO7 
(3) 035272 012700 000340 MoV #PRIO7,RO 
<a 035276 104041 ENT CSSPRI 
6270 035300 005737 002134 TST INTFLG +DIDO INTERRUPT OCCUR 
rat 035304 001004 : BNE 2$ 7 YES OKAY 
6273 035306 ERROF 24.,EM66,.ERRO ;NO INTERRUPT FROM DCK 
(3) 035306 104462 TRAP TSERCODE 
(5) 035310 000030 .WORD 24 
(5) 035312 013746 .WORD EM66 
alte 035314 014044 .WORD ERRO 
6275 035316 23: ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 035316 104010 EMT CSESCAPE 
(3) 035320 000054 .WORD 100015-. 
6276 
6277 
6278 035322 013737 002216 002150 MOV E. CS, THPO GET RLCS 
6279 035330 042737 001777 002150 Bic #1777, THPO SAVE ERROR BITS 
6280 035336 022737 104000 002150 CMP #BiTiS'BiT11,TMPO ;OCK SET. 
— 035344 001402 . BEQ 13 + YES, CONTINUE 
6 
6283 035346 004537 020012 JSR RS. CHERR 
6284 035352 1S. CKLOOP 
pa 035352 104006 EMT CSCLP1 
6 
6286 035354 022737 104000 002150 CMP eBiTiS'BiTi1, THPO 
6287 035362 001404 BEQ 


3$ 
6288 035364 ERRDF  25.,EM65, ERRO 


OUTERR 
DZRLEA 


MACY11 301046) 
O3-NOV-77 09: 54 


Pil 


035364 
035366 
035370 
035372 


035374 


035374 
035374 
035374 
035376 
035376 
035376 
035400 
035400 
035400 


035402 


035402 


035402 


035402 
035406 
035414 
035416 


035420 
035420 


035422 
035430 


104462 
000031 
013705 
014044 


104005 


104005 


104001 


004737 
104032 
000274 
104004 


012737 
012700 


004537 


O03-NOV-77 


H 9 
10:02 PAGE 83-88 
XXTEST 39%% - FORCE DCK WITH WRITE CHECK INTERRUPT 


TRAP TSERCODE 
.WORD 25 
.WORD EN6S 
.WORD ERRO 
+;WHEN FORCED 
3: 
ENDSEG +%%END OF SEGMENT%% 
100015: 
ENT CSESEG 
ENDSEG +%Z%END OF SEGMENT%% 
100008: 
ENT CSESEG 
ENDTST +XXEND OF TESTXX 
L10074: 
EMT CSETST 
.SBTTL xXXTEST 4OXX - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 
BGNTST ;HXSTART OF TEST&X 
STARS 
3 5 REXAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS A AAA AAA AAAS 
;WHEN WRITING PARTIAL SECTORS (LESS THAN 128 WORDS) THe 
;CONTROLLER WILL FILL IN THE REMAINING PORTION OF 
; THE SECTOR WITH ZERO WORDS. CHECK THIS FEATURE CAN BE WRITE CHECKED 
Ae WORD COUNTS FROM 1 TO 127 
3p RAXKAAAAAAAAA AAA AAA AA AAA AAA AAA AAA AAA AA AAA AA AA AAA AAA AAA AAA AE AE 
021154 JSR PC, HDHOME *HEADS OVER TRACK 0 
CKERFG *HEADS GO HOME OKAY 
EMT CSEXIT 
.WORD L10075-. 
BGNSEG + %%START OF SEGMENT%% 
ENT CSBSEG 
000001 002152 MOV #1, TMP 1 START WITH 1 WORD WRITE 
002652 335: MoV #BUF,RO +WRITE BUFFER WITH 52525. WE'LL 
000200 Mov #128.,R1 ;WRITE 128 WORDS ALL THOUGH WE'RE 
052525 3S: MoV #52525, (RO)+ ONLY GOING TO TRANSFER < 128 
DEC R1 ;DONE WITH BUFFER? 
BNE 33 NO, GO BACK 
002152 MOV THP1.R0 +GET TRANSFER WORD COUNT 
NEG RO +NEGATE FOR RLMP 
144556 MOV RO. ARLMP STORE WORD COUNT AWAY 
002652 144544 MoV #BUF, ARLBA SET UP RLBA 
144542 CLR @RLDA 
020254 JSR R5, LOFUNC +LOAD THE FUNCTION IN NEXT WORD 
WRITE *WRITE IT 
021074 JSR RS. WTCRDY ;WAIT FOR WRITE TO FINISH 
ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 


SEQ 0111 


OUTERR 


DZRLEA. 


Pil 


035506 
035610 


035512 
035516 
035516 
035520 


035522 
035526 
035534 
035540 
035542 
035546 
035552 
035554 
035560 
035560 
035562 
035564 
035570 
035570 
035572 


035574 
035574 
035576 
035604 


035672 


MACY11 30(1046) 
03-NOV-7 


104010 
000200 


004537 


104010 
000170 


005077 


000014 
004537 


104010 
000126 
004537 


104010 
000116 


104004 
012777 


104010 
000034 


004537 
005737 
001003 


104010 
000016 
000405 


104006 


104462 
000045 
013631 
014750 


03-NOV-77 
7 09: 54 


020012 


144519 
002652 
002152 


144472 
020254 


021074 


020012 


002652 
002152 


144422 
144414 
020254 


021074 


020012 
002114 


144500 


144430 


10:02 PAGE 83 


-89 
* - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 


+ CHECK CNTLR FOR ERRORS 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


+LOAD THE FUNCTION IN NEXT WORD 


;CHECK FOR FL: LOE. ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 


+CHECK FOR FL: LOE, ELSE EXIT SEG 


+ SET UP 


> SECTOR 


;%%START OF SEGMENT%% 
TO READ 


;LOAD THE FUNCTION IN NEXT WORD 


;WAIT TIL WE FINISH THE WRCHK 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 


7WAS ERROR A DCK?? 
+ YES. GIVE MOR INFO 
+ CHECK FOR FL: LOE. ELSE EXIT SEG 


SKIP AROUND 
> YES. CHECK FOR LOOP FIRST 


EXIT TEST 


SETEST 4OX 
ENT CSESCAPE 
.WORD 10000$-. 
SR R5. CHERR 
ESCAPE SEG 
ENT CSESCAPE 
.WORD 10000$-. 

; VERIFY WRITE WITH READ BEFORE WRCHK 
CLR @RLOA 
MoV #BUF, dRLBA 
MOV TMP1,R0 
NEG RO 
MoV RO. aRLMP 
JSR RS, LDF UNC 
READ 
JSR RS, WTCRDY 
ESCAPE SEG 
ENT CSESCAPE 
.WORD 100005- 
JSR RS, CHERR 
ESCAPE SEG 
ENT CSESCAPE 
.WORD 100005-. 
BGNSEG 
ENT CSBSEG 
MOV #BUF, ARLBA 
MoV TNP1,.R0 
NEG RO 
MOV RO. ARLMP 
CLR @RLDA 
JSR R5. LDF UNC 
WRCHK 
JSR RS, HTCRDY 
ESCAPE SEG 
EMT CSESCAPE 
.WORD 10001S-. 
JSR R5, CHERR 
TST T. CRC 
BNE 8s 

108: ESCAPE SEG 
ENT CSESCAPE 
-WORD 100015-. 
BR 995 

8S: CKLOOP 
ENT CSCLP1 
ERROF 37..,EM64,ERR14 
TRAP TSERCODE 
.WORD 37 
.WORD EM64 
.WORD = ERR14 

995: 
ENDSEG 

10001$: 


;%%END OF SEGMENT%% 


SEQ 0112 


OUTERR 
DZRLEA 


MACY11 301046) 


O3-NOV-77 


Pil O3-NOV-77 O09: 54 


035672 


035674 
035700 
035706 


035710 
035710 
035710 
035712 
035712 
035712 
035714 


035714 


035714 


035714 
035720 
035726 
035730 
035732 


035736 
035736 


035740 


036024 


104005 
005237 


023727 
001250 


104005 


104001 


004737 


104032 
000246 


012703 


104CL4 


012700 
012701 
011302 
010220 
005301 
001375 


012777 


104010 
000150 


002152 
002152 000200 


021154 


002304 


002652 
000200 


002652 
177600 
144236 
020254 


021074 


020012 


144246 
144244 


J 9 
RKTEST YO - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 


10:02 PAGE 83-90 


EMT CSESEG 

INC TMP 1 

CMP TMP 1, #128. 

BNE 33% 

ENOSEG ;%%END OF SEGMENT%% 
100005: 

ENT CSESEG 
ENOTST ;¥KEND OF TESTXx 
L10075: 

EMT CSETST 
.SBTTL &XTEST 41kk - EXTENDED CHECK OF WRITE CHECK FUNCTION 
BGNTST ;¥XSTART OF TESTXX 


STARS 

js REXAAAAAAAAAAAAARARAA AAA AAA AA AAA AAA AA AAA AAA AA AAA AA EA AAA AAA EAE 
CHECK OF WRITE CHECK LOGIC UNDER FLAG MODE 

i+ THIS TEST 1S DONE WITH ALL BIT PATTERNS 

; WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM 

A ey (BUF). WE CHECK THAT NO ERRORS OCCUR. 


STARS 
js REXKKAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AA AA AAA AA AAA AAA AAA AA AA AAAS 
JSR PC, HOHONME ;HEADS OVER TRACK O 
CKERFG +HEADS GO HOME OKAY 
EMT CSEXIT 
.WORD 1L10076-. 


MOV #HORTAB. RS 


BGNSEG ;%%START OF SEGMENT%% 
EMT CSBSEG 
2988: MOV #BUF.RO +SETUP AND WRITE 
MoV #128. ,R1 +128 WORDS 
MoV (R3),R2 
2998: MOV R2, (RO)+ WRITE 
DEC R1 + DONE?? 
BNE 299% 
Mov #BUF. ARLBA +LOAD BUS ADNRESS 
MoV #-128. , ARLMP WORD COUNT 
CLR aRLDA CLEAR DISK ADORESS 
a R5. LDF UNC ;LOAD THE FUNCTION IN NEXT WORD 
WR | 
JSR RS, WTCRDY ;WAIT FOR CONTROLLER READY 
ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 


ENT CSESCAPE 
.WORD 100005-. 
JSR RS. CHERR CHECK CNTLR FOR ERRORS 
ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
ENT CSESCAPE 
.WORD 100005-. 


SEQ 0113 





K 9 
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DZRLEA. Pil O3-NOV-77 O09 XXTEST 41%K - EXTENDED CHECK OF WRITE CHECK FUNCTION SEQ 0114 
6409 036026 BGNSEG i %%START OF SEGMENT%% 
wee 036026 104004 ENT CSBSEG 
ante VERIFY WRITE WITH READ BEFORE WRCHK 
6413 036030 005077 144202 CLR @RLDA 
6414 036034 012777 002652 144172 MoV BUF, ARLBA 
6415 C36042 612777 177600 144170 MOV #-128. . ARLMP 
6416 036050 004537 020254 JSR RS, LOFUNC ;LOAD THE FUNCTION IN NEXT WORD 
6417 036054 000014 READ 
6418 036056 004537 021074 JSR RS, WTCROY 
6419 036062 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 

(3) 036062 104010 ENT CSESCAPE 
(3) 036064 000076 .WORD 100015$-. 
6420 036066 004537 020012 JSR RS, CHERR + CHECK CNTLR FOR ERRORS 
6421 036072 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 036072 14010 ENT CSESCAPE 
wits 036074 000066 .WORD 100015-. 
6423 036076 BGNSEG ;%2START OF SEGMENT%% 
(3) 036076 104004 ENT CS$BSEG 
6424 
6425 036100 3: 
6426 036100 005077 144132 CLR ORLDA 
6427 036104 012777 177600 144126 MOV #-128. , ORLMP WORD COUNT 
6428 036112 012777 002652 144114 MoV #BUF, ARLBA BUS ADDRESS 
6429 036120 004537 020254 JSR RS. LOFUNC +LOAD THE FUNCTION IN NEXT WORD 
6430 036124 000002 WRCHK *+WRITE CHECK 
6431 
6432 036126 004537 021074 JSR RS, WTCRDY ;WAIT FOR CONTROLLER READY 
6433 036132 ESCAPE SEG ;CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 036132 104010 ENT CSESCAPE 
(3) 0636134 000024 .WORD 10002$-. 
6434 
6435 ; 
6436 036136 004537 020012 JSR RS. CHERR CHECK CNTLR FOR ERRORS 
6437 036142 005737 002114 TST T. CRC *WRITE CHECK ERROR?? 
ae 036146 001404 BEQ 4$ +NO 
64 
6440 036150 ERRHRD 410..ERR15,EN70 
(3) 036150 104463 TRAP TSERCODE 
(5) 036152 000632 .WORD 410 
(5) 036154 015016 .WORD ERR15 
wee 036156 014020 .WORD EN70 
6442 036160 4$: 
6443 
6444 036160 ENDSEG ;%%END OF SEGMENT%% 
(3) 036160 10002S: 
(3) 036160 104005 MT CSESEG 
6445 036162 ENDSEG :%2END OF SEGMENT%% 
(3) 036162 100015: 
sas 036162 104005 EMT CSESEG 
644 
6447 036164 005723 TST (R3 


R3)+ 
6448 036166 020327 002460 CMP R3, GHDREND 


OUTERR 


DZRLEA. P 


Yeh 30(1046) 
11 O3-NOV-77 O9: 


036172 


036174 
036174 
036174 
036176 
036176 
036176 


036200 
036200 


036200 


036200 
036204 
036212 
036214 


036216 


036222 
036222 


036224 
036230 


001262 


104005 


104001 


004737 


104032 
000252 


012703 


104004 


012700 
012701 
011302 
052702 
010220 
005301 
001375 


012777 


104010 
000150 


021154 


002304 


002652 
000200 


100000 


002652 
177600 
143746 
020254 


021074 


020012 


03-NOV-77 
54 


143756 
143754 


10:02 PAGE 83-92 


L 9 


RETEST 41k - EXTENDED CHECK OF WRITE CHECK FUNCTION 


100008: 


ENDTST 


L10076: 


. SBTTL 
BGNTST 


BNE 
ENDSEG 
ENT 


EMT 


298% 


CSESEG 


CSETST 


+%%END OF SEGMENT%% 


;XXEND OF TESTES 


XXTEST 42ax% - EXTENDED CHECK OF WRITE CHECK FUNCTION 


sHXSTART OF TESTXX 


STARS 

js MEXAAAAAAAAAAAAAAAATARAAA AAA AAA AA AA AAA AAA AA AAA AA AA AAA AAA AAA ATE 
CHECK OF WRITE CHECK LOGIC UNDER FLAG MODE 

+ TEST 1S DONE WITH ALL BIT PATTERNS 

>; WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM 

WE CHECK THAT NO ERRORS OCCUR. 


;MEMORY (BUF). 


STARS 
3s REXAAAAAAAAAAAAAAAA AAA AA AAA AAA AA AA AAA AA AA AAA AAA AAA AAA AAA AAAS 


2985: 


2995: 


JSR 
CKERFG 
EMT 
. WORD 


WORD 
BGNSEG 


PC, HOHOME 


CSEXIT 
L10077-. 


#HORTAB, RS 


CSBSEG 


#BUF,RO 
#128. ,R1 
(R3),R2 
#B1T15,R2 
RZ, (RO)+ 


R1 

2998 

#BUF. ARLBA 
#-128. , ORLMP 
@RLDA 

RS. LDFUNC 
RS, WTCRDY 
SEG 
CSESCAPE 
10000$-. 
R5. CHERR 


SEG 
CSESCAPE 
10000$-. 


+HEADS OVER TRACK O 
*HEADS GO HOME OKAY 


+ %%START OF SEGMENT%% 


+ SETUP AND WRITE 
+128 WORDS 
+GET PATTERN 


+ DONE?? 


*LOAD BUS  Sanene 
WORD COUN 
+ CLEAR DISK ADORESS 
+LOAD THE FUNCTION IN NEXT WORD 


;WAIT FOR CONTROLLER READY 
+CHECK FOR FL: LOE. ELSE EXIT SEG 


CHECK CNTLR FOR ERRORS 
CHECK FOR FL: LOE. ELSE EXIT SEG 


;%%START OF SEGMENT%% 


SEQ 0115 





n 9 
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DZRLEA. P11 O3-NOV-77 SXTEST 424% - EXTENDED CHECK OF WRITE CHECK FUNCTION SEQ 0116 
wee 036316 104004 ENT CSBSEG 
abe VERIFY WRITE WITH READ BEFORE WRCHK 
6495 036320 005077 143712 CLR @RLOA 
6496 036324 012777 002652 143702 MOV BUF. ARLBA 
6497 036332 012777 177600 143700 MOV #-128. . ORLNP 
6498 036340 004537 020254 JSR RS, LOFUNC +LOAD THE FUNCTION IN NEXT WORD 
6499 036344 000014 READ 
6500 036346 004537 021074 JSR RS, WTCRDY 
6501 036352 ESCAPE SEG +CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 036352 104010 ENT CSESCAPE 
(3) 036354 000076 .WORD 10001$-. 
6502 036356 004537 020012 ASR R5. CHERR + CHECK CNTLR FOR ERRORS 
6503 036362 eSCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 036362 104010 ENT CSESCAPE 
ae 036364 000066 .WORD 100015$-. 
6505 036366 BGNSEG +%%START OF SEGMENT%% 
(3) 036366 104004 ENT CSBSEG 
6506 
6507 036370 3$: 
6508 036370 005077 143642 CLR ORLDA 
6509 036374 012777 177600 143636 MOV #-128. , ORLMP +WORD COUNT 
6510 036402 012777 002652 143624 MOV #BUF, ARLBA *>BUS ADDRESS 
6511 036410 004537 020254 JSR RS. LDFUNC +LOAD THE FUNCTION IN NEXT WORD 
ety | 036414 cCO0002 WRCHK +WRITE CHECK 
6514 036416 004537 021074 JSR RS, WTCRDY ;WAIT FOR CONTROLLER READY 
6515 036422 ESCAPE SEG —- + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 036422 104010 EMT CSESCAPE 
(3) 036424 000024 .WORD 10002$-. 
6516 
6517 
6518 036426 004537 020012 JSR RS. CHERR + CHECK CNTLR FOR ERRORS 
6519 036432 005737 002114 TST T. CRC 
cone 036436 001404 BEQ 4$ 
6522 036440 ERRHRD 410. .ERR15,EN70 
(3) O36440 104463 . TRAP TSERCODE 
(5) 036442 000632 .WORD 410 
(5) O36444 015016 .WORD ERR15 
(5) 036446 014020 .WORD EN70 
6523 
6524 036450 4S: 
6525 
6526 
6527 036450 ENDSEG + %Z%END OF SEGMENT%% 
(3) 036450 100028: 
(3) 036450 104005 ENT CSESEG 
6528 036452 ENDSEG +%Z%END OF SEGMENT%% 
(3) 036452 100015: 
at 036452 104005 ENT CSESEG 
6530 036454 005723 TST (R3)+ 


6531 036456 020327 002460 CMP R3. #HDREND 








OUTERR 


DZRLEA. 


Pil 


MACY11 30(1046) 
O3-NOV-77 09: 54 


036462 
036464 
036464 
036464 
036466 
036466 
036466 


026470 


036470 
036470 
036470 
036474 
036502 
036504 
036506 
036506 


036510 


036546 
036550 


036560 
036560 


001260 


104005 


104001 


004737 


104032 
000052 


104004 
‘ 


012777 
012777 
012777 
004537 
000016 
004537 


104010 
000006 


004537 


104005 


104001 


03-NOV-77 


021154 


177600 
002652 
177777 
020254 


021074 


020012 


i 


143522 
143510 
143504 


10: . PAGE 83- 


94 
RETEST 42% - EXTENDED CHECK OF WRITE CHECK FUNCTION 


100008: 


ENDTST 


L10077: 


. SBTTL 


BNE 
ENDSEG 
ENT 


ENT 


2988 
+%%END OF SEGMENT%% 
CSESEG 
+¥XEND OF TESTES 
CSETST 


XXTEST 43KK - READ WITHOUT HEADER COMPARE FUNCTION 


STARS 
js RAERAAAAAAAA RATA AAA AAA AAA LAA AAA AAA AA AA AAA AAA AAA AAA ALAA AAAS 
+ TEST THAT REA 


EAD WITHOUT HEADER VERIFICATION WORKS. THIS FUNCTION SHOULD 


SREAD AT THE NEXT SECTOR ENCOUNTERED. SET THE RLOA TO O 
a + + ~ i FUNCTION IN FLAG MODE. UPON COMPLETION CHECK 


STARS 
1. presen manettet tnpeteremitmenmmiieis oo pee 


100008: 


ENDTST 


L10100: 


. SBTTL 
BGNTST 
STARS 


JSR 
ENDSEG 
EMT 


ENT 
44TEST 


¢BXSTART OF TEST&X 


PC, HDHOME ;HEADS OVER TRACK 0 
;HEADS GO HOME OKAY 
CSEXIT 
L10100-. 
;%%START OF SEGMENT%% 
CSBSEG 
#-128. , ARLMP ;SET UP WORD COUNT : 
#BUF, ARLBA ;SETUP BUS ADDRESS 
#-1,dRLDA ° HEADER SHOULON'T MATTER 
RS, LDF UNC ;LOAD THE FUNCTION IN NEXT WORD 
;READ DATA WITHOUT HEADER VERIFY 
RS, HTCRDY ;WAIT FOR IT TO FINISH 
SEG ;CHECK FOR FL: LOE, ELSE EXIT SEG 
CSESCAPE 
10000S-. 
RS, CHERR 7 CHECK CNTLR FOR ERRORS 
;%%END OF SEGMENT%% 
CSESEG 
;HKEND OF TESTXX 
CSETST 


44UXK - READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT 
2 XXSTART OF TESTX% 


jj RERRAAAAARAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAAS 
; TEST THAT READ WITHOUT HEADER VERIFICATION WORKS IN 


SEQ 0117 


. 8 10 
OUTERR MACY11 30(1046) wees 10:02 PAGE 83-95 eS 


DZRLEA. P11 O3-NOV-77 09:5 RETEST 44% - READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT SEQ 0118 
6572 ; INTERRUPT MODE. 
6573 036560 STARS 
ate jj REXAAAAAAAAAAAAAAAAALAAAA AAA AAA AAA AA ALAA ATA AAA AAA AAA AAT TE 
6575 036560 004737 021154 JSR PC, HDHONE +HEADS OVER TRACK O 
6576 036564 ‘ CKERFG +HEADS GO HOME OKAY 
(4) 036572 104032 ENT CSEXIT 
“7? 036574 000114 .WORD L10101-. 
6578 036576 BGNSEG +%%START OF SEGMENT%% 
ate 036576 104004 EMT CS$BSEG 
6580 036600 005037 002134 CLR INTFLG ;CLEAR INTERRUPT OCCURANCE FLAG 
6581 036604 012777 177600 143426 MOV #-128. , ARLMP +SET UP WORD COUNT FOR ONE SECTOR 
6582 036612 012777 002652 143414 MoV BUF, ARLBA + SETUP BUFFER ADDRESS 
6583 036620 012777 177777 143410 MOV #-1, dRLDA +DISK ADDRESS IS A DON'T CARE 
6584 036626 SETPRI #PRIOO 
(3) 036626 012700 000000 MoV #PR100, RO 
(3) 036632 104041 ENT CSSPRI 
6585 036634 004537 020254 JSR RS. LOFUNC ;LOAD THE FUNCTION IN NEXT WORD 
6586 036640 000116 RONHD! INTEN + INTERRUPT ENABLED 
6587 036642 004537 021074 JSR R5, WTCROY ;WAIT FOR INTERRUPT 
6588 036646 SETPRI #PRIO7 
(3) 036646 012700 000340 MOV #PR107,R0 
(3) 036652 104041 EMT CSSPRI 
6589 036654 ESCAPE SEG + CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 036654 104010 EMT CSESCAPE 
aaa 036656 000030 .WORD 10000S-. 
6591 036660 005737 002134 TST INTFLG -DID IT INTERRUPT 
oo 036664 001004 BNE 1$ + 1F INTERRUPT GO TO 1% 
6594 036666 ERROF 4O..EM4O,ERRO ;NO INTERRUPT 
(3) 036666 104462 TRAP TSERCODE 
(5) 036670 000050 .WORD 40 
(5) 036672 012347 .WORD ENM4O 
(5) 036674 014044 .WORD ERRO 
6595 036676 1S: ESCAPE SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
(3) 036676 104010 ENT CSESCAPE 
At 636700 000006 .WORD 10000S-. 
om 036702 004537 020012 JSR RS, CHERR CHECK CNTLR FOR ERRORS 
6 
6599 036706 ENDSEG ;%%END OF SEGMENT%% 
(3) 036706 100008: 
(3) 036706 104005 EMT CSESEG 
6600 036710 ENDTST +&XEND OF TESTXX 
(3) 036710 L10101: 
+4 036710 104001 EMT CSETST 
6601 
6602 .SBTTL x¥&TEST 45x% - CHECK RD W/O HDR CMP ACTUALLY READS 
6603 
6604 036712 BGNTST +KXSTART OF TESTXX 
6605 
66Ue 036712 


STARS 
(2) jj MEXAAAAAAAAAAAAAA ARAL A AA AAA AAA AAA AAA AA AAA AA AAA AA AAA AAA AA AAS 











OUTERR 


DZRLEA. 
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036712 


036712 
036716 
036724 
036726 


036730 
036730 


036732 
036740 


037014 
037020 
037022 
037026 
037026 
037030 


037032 
037036 
037036 
037040 


037042 
037046 
037052 


037054 
037060 


037062 
037066 


004737 
104022 
000140 
104004 


012737 
005037 


012737 


004537 
000016 
004537 


104010 
000054 


004537 


104010 
000044 


012702 
022237 
001014 


005737 
001005 


005237 
005137 


f 


03-NOV-77 


021154 


024350 
002152 
002652 
000200 
002150 


000050 
177600 
002652 
002652 
020254 


021074 


020012 


002652 


002150 


002152 


002152 
002150 


10: . PAGE 83-96 
RETEST 4Sa% - CHECK RO W/O HOR CMP ACTUALLY READS 


+CHECK THAT THE READ W/O HOR CHP FUNCTION ACTUALLY READS (INTO MEMORY) 
Y_AND THEN ISSUE 


C 10 


;WE WILL WRITE A PATTERN INTO MEMORY 


+A READ TO OVERLAY THAT PATTERN. 


AFTER THE READ 


+WE CHECK TO SEE IF THE WRITTEN PATTERN HAS CHANGED. 


NOT WE ISSUE 


IF (T AGAIN AT THE 

SHAVING MODIFIED OUR PATTERN IN MEMORY (SINCE THERE IS 
+ONE CHANCE THAT THE DISK COULD HAVE OUR PATTERN). 
; THE SECOND READ WE CHECK THE BUFFER AGAIN. 
And CHANGED WE REPORT AN ERROR 


SAME SECTION AFTER 


AFTER 
iF IT'S 


STARS 
js REXAAAAAAAAAALARALALALAAAAAAAA AAA AAA AAA AAA AA AAA AAA AAA AA AAA A AY 


002150 


23: 


143244 
143240 
143226 
002156 


4S: 


JSR 
CKERFG 
EMT 
. WORD 
BGNSEG 
EMT 


PC, HOHOME 
CSEXIT 
L10102-. 
CSBSEG 
#24350. THPO 
TMP 


THO. (ROD¢ 


2$ 
#40. , ARLOA 


#-128. . ARLMP 


#BUF, ARLBA 
#BUF. GODAT 


RS. LOFUNC 
RS, WTCRDY 
G 


CSESCAPE 
10000$-. 


RS. CHERR 


CSESCAPE 
10000$-. 


#BUF. RZ 
(R2)+, TMPO 
6$ 


w 
m 


w 
m 
o 


TMP 1 
5$ 


TMP 1 
THPO 


+HEADS OVER TRACK O 
+HEADS GO HOME OKAY 


+%%START OF SEGMENT%% 


+SET PATTERN TO WRITE 
+CLEAR PASS INDICATOR 
+SET UP BUFFER BEGINNING 


WRITE {BUFFER 

; DONE??? 

; NO, GO BACK 

+LOAD DISK ADDRESS TO NONSENSE 
+SET WORD COUNT 


+LOAD BUS ADDRESS 
+FOR ERROR PRINT 


;LOAD THE FUNCTION IN NEXT WORD 


READ W/O HOR CMP 
;WAIT FOR CONTROLLER READY 


*CHECK FOR FL: LOE. ELSE EXIT SEG 


;CHECK CNTLR FOR ERRORS 


+ CHECK FOR FL: LOE, ELSE EXIT SEG 


SET TO START COMPARING DATA 
+D1D DATA CHANGE? 
+ YES. CHECK FOR END 


¢ 


;DATA DIDN'T CHANGE, CHECK 
7 1F 1ST OR 2ND TIME? 
;2ND-REPORT 1ST-TRY AGAIN 


+ INC PASS COUNT 
; COMPLIMENT PATTERN 


’ 


SEQ 0119 


OUTERR 


DZRLEA. 
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037072 


037074 
037074 
037076 
037100 
037102 


037104 


037104 
037104 
037104 
037106 
037106 
037106 


037110 
037110 


037110 


037110 
037114 
037122 
037124 


037126 
037126 


037130 
037136 
037144 
037152 
037160 


037200 
037202 


037204 
037210 
037210 
037212 
037214 


000724 


104462 
000024 
013030 
014436 


104005 


104001 


004737 


104032 
000120 


104004 


012777 
012777 
012777 
012737 
062737 


004537 
000016 
004537 


104010 
000040 


004537 
104010 


000030 
013737 


O03-NOV-77 


09: 54 


021154 


000050 
002652 
177600 
002652 
000400 
020254 


021074 


020012 


002220 


143100 
143070 
143066 
002156 
002156 


002160 


10:02 PAGE 83-97 


D 10 


XZTEST 4SXx - CHECK RD W/O HOR CMP ACTUALLY READS SEQ 0120 
® 
BR 1$ ;GO DO IT AGAIN 
55: ERROF 20..,EN5S5,ERRO ° 
TRAP TSERCODE 
. WORD 0 
.WORD EMSS 
.WORD = ERRI 
65: 
ENDSEG ;%%END OF SEGMENT%% 
100005: 
ENT CSESEG 
ENDTST ;XXEND OF TESTX% 
L10102: 
EMT CSETST 
.SBTTL XxTEST 46XK - CHECK RLBA INCREMENT WITH RD W/O HDR CMP 
BGNTST ;HXSTART OF TEST&*% 
STARS 


js MXXAAAAAAAAA AAA AA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AA AAAS AA AAAS 
CHECK THAT THE RLBA WILL INCREMENT WITH THE READ W/O HOR CMP 
om Roce SHOULD CONTAIN "BUF +256." AFTER A FULL SECTOR 


STARS 


55 MXXKAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAAS 


JSR 
CKERFG 
EMT 
. WORD 
BGNSEG 
EMT 


PC, HDHOME +HEADS OVER TRACK O 

+HEADS GO HOME OKAY 
CSEXIT 
L10103-. 

*%2START OF SEGMENT%% 

CS$BSEG 
#40. ARLOA 
#BUF., ARLBA +SET UP BUS ADDRESS 
#-128. , ARLMP +WORD COUNT 
#BUF., GDDAT ;FORM EXPECTED BUS ADDRESS 
#256. . GODAT AFTER READ 
RS. LOF UNC +LOAD THE FUNCTION IN NEXT WORD 

READ W/O HOR CHP 
R5, WTCRDY ;WAIT FOR CONTROLLER READY 
SEG +CHECK FOR FL: LOE, ELSE EXIT SEG 
CSESCAPE 
10000$-. 
RS, CHERR CHECK CNTLR FOR ERRORS 
SEG CHECK FOR FL: LOE. ELSE EXIT SEG 
CSESCAPE 
10000$-. 
E. BA. BDDAT READ "RLBA' FOR PRESENT ADDRESS 





OUTERR 


DZRLEA. 
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Pil 


037222 
037230 


037232 
037232 
037234 
037236 
037240 


037242 
037242 
037242 
037242 
037244 


037244 
037244 


037246 
037246 


037246 


037246 
037252 
037260 
037262 


037264 
037264 


037314 
037322 


037334 


03-NOV-77 


023737 
001404 


104462 
000025 
013110 
014210 


104005 


104001 


004737 
104032 
000116 
104094 


012737 
013777 
012777 
004537 
000016 
004537 


104010 


03-NOV-77 
09: 54 


002160 


021154 


000050 
002156 
002156 
177600 
002652 


020254 
021074 


002156 


002156 
142734 


142724 
142712 


10:02 PAGE 83-98 


E 10 


KXTEST 46RX - CHECK RLBA INCREMENT WITH RD W/O HOR CHP 


1$: 


10000$: 


ENOTST 


L10103: 


. SBTTL 
BGNTST 


ENDSEG 
ENT 


EMT 


BODAT. GDDAT 
1$ 


foto 


_—— 3 


2 
ENS3 
ERRY 


CSESEG 


CSETST 


;010 ‘BA’ INCREMENT PROPERLY? 
; YES, 


CONT | NUE 


+%Z%END OF SEGMENT%% 


;HXEND OF TESTXX 


XXTEST 47Kk - CHECK RLDA DOES INCREMENT WITH RD W/O HOR CMP 


;KXSTART OF TESTX% 


STARS 
3 RXARKAAAAAAAAATAAAAAARAA AA AAA AAA IAA AAA AAA AAA AAA AAA AAA A AAA AA AAS 
;CHECK THAT THE RLDA DOES INCREMENT BY ONE AFTER A 


;FULL SECTOR READ W/O HDR CHP 


telly THE READ THE RLOA SHOULD STILL BE THE INITIAL RLDA + 1 
3 RXXKAAAAAAAAA AAA AAA AAA AAA AA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAAS 


BGNSEG 
ENT 


PC, HDHOME 

CSEXIT 

L10104-. 

CSBSEG 

#40. , GODAT 

GDDAT, @RLDA 
DAT 


GO 
#-128. , ARLMP 
BUF. ARLBA 


RS. LDFUNC 
RS, HTCRDY 
CSESCAPE 


4) 
mm 
o 


+HEADS OVER TRACK 0 
+HEADS GO HOME OKAY 


+ %%START OF SEGMENT%% 


+DA TO NONSENSE 
SETUP DISK ADDRESS 


;WORD COUNT 
+SETUP BuS ADDRESS 


;LOAD THE FUNCTION IN NEXT WORD 
READ WITHOUT HEADER COMPARE 
+WAIT FOR CONTROLLER READY 
CHECK FOR FL: LOE. ELSE EXIT SEG 


SEQ 0121 


OUTERR 
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037336 


037340 
037344 
037344 
037346 


037350 
037356 
037364 


037366 
037366 
037370 
037372 
037374 


037376 


037376 
037376 
037376 
037400 
037400 
037400 


000040 
004537 020012 


104010 
000030 


013737 002222 002160 
023737 002156 002160 
001404 


104462 
000026 
013200 
014210 


104005 


104001 


037402 


037402 
037402 


037404 
037404 
037406 
037410 
037412 
037412 
037414 
037416 
037420 
037422 
037422 


000025 


004130 
037456 
000001 


000031 
037463 
160000 
177776 


001031 
037510 
000000 
000776 


002032 
037477 
000340 
000000 
000007 


037444 003032 


10:02 PAGE 83-99 


F 10 


9 
KXTEST 47%X - CHECK RLOA DOES INCREMENT WITH RD W/O HOR CHP 


1$: 


10000S: 


ENOTST 


L10104: 


BGNNOD 


. WORD 


ENDSEG 
EMT 


EMT 


HROPRM 
BGN 


10000$-. 
RS. CHERR + CHECK CNTLR FOR ERRORS 
) + CHECK FOR FL: LOE. ELSE EXIT SEG 
CSESCAPE 
10000$-. 
E. DA. BODAT +READ DISK ADDRESS 
GDDAT. BODAT +DID SECTOR INCREMENT PROPERLY 
1$ ;YES, BRANCH NO, REPORT ERROR 
22. , EM5S4, ERR4Y 
TSERCODE 
22 
ENS4 
ERRY 

;%%END OF SEGMENT%% 
CSESEG 

;HXEND OF TESTXX 
CSETST 


HRD 
. WORD L10105-LSHARD/2 


CNTYPE. CNT. 1. YES 
TSCODE 
CNTYPE 


1 

CSRMSG. CSR, 0, 160000, 177776, YES 
TSCODE 

CSRMSG 

TSLOL IM 

TSHILIM 
VECNSG. VECT. 0,0, 776. YES 

TSCODE 


VECMSG 

TSLOL IM 

TSHILIM 

BRMSG. PRIOR, 0, 340.0, 7, YES 
TSCODE 

BRNSG 


340 

TSLOL IM 

TSHILIM 

DRNSG. DRBT. 0. 03400. 0,7. YES 
TSCODE 


SEQ 0122 | 


OUTERR 


DZRLEA. 


MACY11 30(1046) 


Pil 


037446 
037450 
037452 
037454 


037456 
037456 


037456 
037463 
037470 
037476 
037477 
037504 
037510 
037516 
037517 
037524 


037526 


037526 


037526 
037526 


037530 


037574 
037576 


037517 
003400 
000000 
000007 


046122 
102 


037526 


000025 


000130 
037602 
000001 


006044 


001052 
037720 
177777 
000000 
177777 


002130 
037626 
000001 


003130 
037637 
000001 


006044 


004052 
037663 
177777 
000001 


03-NOV-77 
O3-NOV-77 09: 54 


030461 
051525 
042522 


020122 
000114 
052103 


044522 


000 
040440 
051523 
042514 
051117 


042526 


L10105: 


CNTYPE: 
CSRNSG: 


BRMSG: 


VECMSG: 


DRNSG: 
. EVEN 


BGNMOD 


, %& 


10:02 PAGE 83-100 
KXTEST 47%% - CHECK RLOA DOES INCREMENT WITH RD W/O HOR CHP 


ENDHRD 
. EVEN 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


ENDMOD 


SFTPRM 


G 10 


ORMSG 


TSHILIM 


ZRLI17 
/7BUS ADDRESS/ 


7BR LEVEL/ 
/VECTORZ 
ZORIVE/ 


BGNSFT 
. WORD L10106-LSSOF T/2 


OMSG. OLT. 1. YES 
TSCODE 

DOMSG 

1 


1$ 

TSCODE 

ENSG. ELT. D, 177777.0, 177777, YES 
DE 


TSHILIM 

SMSG, SIZE. 1. YES 
TSCODE 

SMSG 


1 

CMSG. OMPCK, 1. YES 
TSCODE 

a 


TSCODE 

LMSG, OLNT. D0, 177777. 1,128. . YES 
TSCODE 

LMSG 

177777 

TSLOL IM 


moe 


SEQ 0123 


H 10 
OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 83-101 
DZRLEA. Pil O3-NOV-77 09: 54 KETEST 47%X - CHECK RLDA DOES INCREMENT WITH RD W/O HOR CHP SEQ 0124 


(4) 037600 000200 .WORD = TSHILIM 
6787 037602 2s: 


6790 037602 ee 
(3) 037602 L10106: 


6792 037602 051104 050117 O47440 OMSG: .ASCIZ /DROP ON ERROR LIMIT/ 
037610 020116 051105 047522 
037616 020122 O44514 044515 


6793 037626 oeaete 047524 044523 SNSG: .ASCIZ ZAUTOSIZE/ 


6794 037637 103 046517 040520 CHSG: .ASCIZ COMPARE DATA ON DCK/ 
037644 042522 042040 052101 
037652 020101 047117 042040 


6795 037663 O43 O47440 020106 LNSG: .ASCIZ 7# OF WORDS IN ERROR REPORTED/ 
037670 047527 042122 020123 
037676 047111 O42440 051122 
037704 051117 051040 050105 
037712 051117 042524 000104 
6796 037720 051105 047522 020122 ENSG: .ASCIZ ZERROR LIMIT/ 
037726 044514 044515 000124 


6798 037734 ENDMOD 


6801 037734 LASTAD 


POP-11 DIAGNOSTIC SUPERVISOR 
11-OCT-77 15: 39 


DZRLEA. SUP 
6806 
18102 070634 
18104 071776 
18105 071776 000000 
18107 072000 
18108 000200 


MACY11 aaieet O3-NOV-77 10: 02. PAGE 84 
TEST 47%% - CHECK RLOA DOES INCREMENT WITH RD W/O HOR CHP 


My Ar DIAGNOSTIC SUPERVISOR 


X1X1s. 
. END 200 


SEQ 0125 







J 10 ear 
OUTERR MACY11 30(1046) O3-NOV-77 10:02 PAGE 85 
DZRLEA. SUP 11-OCT-77 15: 39 SYMBOL TABLE SEQ 0126 


ABOFLA 040206 G BRMSG 037477 CSRNSG 037463 CSREVI= 000001 EFOZ2 = 000002 G 
ABOPAS 040120 G BUF 002652 CURR.T 040134 G CS$RPT = 000025 EFO3 = 000003 G 
ABO.FM 043062 BVEC 002244 CYLMSK 002172 CSSEFG= 000047 E = 000004 G 
AFREG 006751 BSAAB 38 047254 CSAAD 8 052470 CSSPRi= 000041 EFOS = 000005 G 
AFTER 020614 BSAAF 047166 CSARE 052502 CSSVEC= 0 EFO6 = 000006 G 
ALLOC 060652 8. BA 002210 CSARK 053320 CSTPRI= 000013 EFO? = 000007 G 
ARLBA 006706 8. CS 002206 AAL 053430 CSUNBU= 000031 EFO8 = 000010 G 
ARLCS 006701 B. DA 002212 CSABRT= 000021 CSWTM = 000026 EFO9 = 000011 G 
ARLDA 006714 B. MP 002214 CSADR = 000020 CSWTU = 000027 EFiO0 = 000012 G 
ARLMP 006722 CALSCC 002146 C$AU = 000054 DAHS = 000020 EFi1 = 000013 G 
ASAAW 8044772 CALLPC= 000022 CSBRK = 000022 DATPAT 002462 EF12 = 000014 G 
ASAAX 045006 CALLPS= 000024 CSBSEG= 000004 DCKMES 007077 EFi3 = 000015 G 
ASARY 045014 CALLSP= 000026 CS$BSUB= 000002 DECMSG 057176 EFi4 = 000016 G 
ASAAZ 045030 CALLTC= 000030 CSBUFF= 000030 DEMES 007045 EFiS = 000017 G 
ASABA 045040 CAL.CL 065370 CSCEFG= 000046 DERFLG 002302 EFi6é = 000020 G 
BAIé = 000020 CAL.T! 065426 G CS$CLEA= 000012 DERR = 040000 ELT = 000002 
BAI? = O00040 COCNT 002120 CS$CLP1= 000006 DIAG. T 040214 G EMSG 037720 
BCCFBK 002144 CHECK 002112 CSCVEC= 000036 DLMT = 000010 EMT. TR 040212 G 
BCSR 002242 CHERR 020012 CSDCLN= 000044 DLT = Q000C0 EM 010152 
BODAT 002160 CHKLUP 047270 C$D0DU= 000053 DLTMES 007104 EM10 010643 
BEFORE 020562 CHKSTR 661214 CSORPT= 000024 DMPCK = Q000006 Emi00 010217 
BEREG 006730 CHKTTY 057302 C$0U = 000055 DMSG 037602 EM11 010710 
BGN. SU= 037734 CHK.FO 041500 CSEDIT= 000006 DPOVO 070000 G EM12 010737 
BINMNSG 057162 CHK. MA 045430 CSERDF= 000002 DPMUL 067666 G EM13 010776 
BiTO = 000001 G CHK.PC 052516 CSERHR= 000003 DRBT = 000006 EM14 011030 
BITOO = 000001 G CHK. SH 041222 CSERSF= 000001 DROY = 000001 EM16 011112 
BITO1 = 000002 G CHRCNT 060534 CSERSO= 000004 DRIVE 002124 EMi7 011151 
BITOZ2 = O00004 G CH. FLA 045132 CSESCA= 000010 ORMSG 037517 EN20 011211 
BiITO3 = 000010 G CH. PAS 045154 CSESEG= 000005 ROP 016566 EMN21 011266 
BiTOY = 000020 G CKERLT 017724 CSESUB= 000003 DRPCOD 017702 G EMN22 011344 
B!TOS = 000040 G CLEAR. 046552 CSETST= 000001 ORST = 000010 EN23 011436 
BITO6 = 000100 G CLKACC 040116 G CSEXIT= 000032 DRTIM 007017 EN24 011516 
B1TO07 = 000200 G CLKBFR 065372 CSGMAN= 000043 DSPCOD 016600 G EN25 011574 
BITO8 = OOO400 G CLKCNT 040114 G CSGPHR= 000042 DSO == 900000 EN26 011645 
BITO9 = 001000 G CLKRES 066770 G CS$GPRIi= 000040 DSi = 000400 EM27 011705 
BiTi = 000002 G CLKSER 067270 G C$GTIM= 000052 DS2 = 001000 EN30 011765 
BiT10 = 002000 G CLKSON 040160 G CSINIT= 000011 DS3 = 001400 EM31 012025 
BiTi1 = 004000 G CLK.SE 045232 CSINLP= 000020 DUNIT. 040124 G EM32 012070 
B1T12 = 010000 G CLNCOD 017606 G CSKWOF= 000035 DVC.FT 053270 EM33 012135 
BIT13 = 020000 G CLR. MA 045506 CSKWON= 000034 DWORD 002200 EMN34 012176 
BiT14 = 040000 G CMSG 037637 C$LOOP= 000100 DSAAG 054140 EMN35 012241 
BiT1iS = 100000 G CNT = 000010 CSMANI= 000051 DSAAH 054156 EN36 012306 
BiITZ2 = O00004 G CNTYPE 037456 C$MSG = 000023 DSAA! 056730 EM4 010407 
BIT3 = 000010 G CNVT 063446 CSPNTB= 000014 DSAAJ 056734 ‘ EM4O 012347 
BITY = 000020 G COMMTA 063266 CSPNTF= 000017 DSAAK 056752 EM41 012412 
BITS = 000040 G 0 007116 CSPNTS= 000016 DSAAL 056770 EM42 012454 
BiTé = 000100 G CONT 017152 CSPNTA= 000015 DSAAM 057000 EM43 012523 
BIT? = 000200 G CONTCL 067050 G CSPOIN= 000040 EF. CON= Q000036 G EM44 012567 
BITS = CONTIN 017034 C$Q10 = 000377 EF NEW= 000035 G EM4S 012624 
BIT9 = 001000 G CROY = 000200 CSROBU= 000007 EF. PHR= OOO034 G EM4? 012656 
BLD. HW 045652 CRLF 057364 CSREFG= 000050 EF. RES= 000037 G EMS 010446 
BLOCK 063006 CRTIM 006772 CSREQT= 000045 EF. STA= OOOO40 G EMSO 012705 
002246 cskR = 000000 CSRESE= 000033 EFO1 = 000001 G EM51 012745 


K 10 
OUTERR MACY11 30(1046) cn 10:02 PAGE 85-1 


DZRLEA. SUP 11-OCT-77 SYMBOL TABLE SEQ 0127 
EN52 012777 E.MP2 002230 GETCHN 062626 INTFLG 002134 LSOTP 002040 G 
ENS3 013110 FILL 060032 GETPAR 054320 INTFOR 053436 L$0U 017702 G 
ENS4 013200 FILL.C 000204 G GETSW! 061622 INTSRV 017706 L$OUT 002072 G 
EMSS 013030 FIRST 002170 GET. TW 061372 INVAL. 044662 LSOVTY 002104 G 
ENS6 013256 FIX 020550 GLBDAT 002112 G INVINT 053330 LSEF 002024 G 
ENS? 013277 FLAGS 040156 G GLBEQA 002112 G INV. SH 041156 LSEXP1 002032 G 
EMN6 010512 FLAGTA 063204 GLBERR 014044 G IN. SUF 046524 LSEXPZ2 002034 G 
EN60 013337 FLAG. | 045216 GLBSUB 017706 G SAU = 000041 LSEXP3 002036 G 
EM61 013375 FLA. SE 063152 GLBTXT 006652 G ISCLN = O00041 LSHARD 037404 G 
EN62 013452 FLG. MA 045156 GOORVR= 000202 1$0U = 000041 LSHPCP 002046 G 
ENe3 013527 FNDFNC 002250 GSBIT = 000002 ISHRD = 000041 LSHPTP 002056 G 
EN64 013631 FORM. T 053602 GSTAT = 000004 ISINIT= 000041 LSHW 016552 G 
EM65 013705 FREE 061110 GSTINT 007606 ISMOD = 000041 LSICP 002042 G 
EMN66 013746 FRMT1 015406 GSTMES 007547 ISMSG = 000041 LSINIT 016740 G 
EN? 010566 FRMNT1O 016215 GSEXCP= 000400 ISPWR = 000041 LSLADP 002076 G 
EN70 014020 FRMNT11 016350 GS$HILI= 000002 ISRPT = OO0041 LSLAST 037734 G 
END 017520 FRNT13 016472 G$LOL!= 000001 ISSEG = 000041 LSMREV 002012 G 
END. OF 046540 FRNT14 016041 G$NO = 000000 ISSFT = 000041 LSNAME 002000 
END. SU= 070634 FRNT1S 016523 GSOFFS= 000400 ISSRV = 000041 LSREPP 002054 G 
EOP.CH 067312 G FRMTZ2 015445 GSOFSi= 000376 1$SUB = 000041 LSREV 002010 G 
EOP.FM 043076 FRNTZA 015464 GSPRMA= 000001 ISTST = 000041 LSSOFT G 
EOP. IN 045150 FRNTZB 015477 GSPRMNO= 000002 JSJMP = 000167 L$SPC) 002030 G 
ERFLG 002256 FRNT3 015526 GSPRML= 000000 KBPTR 037766 G LSSPCP 002050 G 
ERR = 100000 FRNTY 015533 GSRADA= 000140 KBUF 037770 G LSSPTP 002060 G 
ERRFOR 053506 FRNTS 015571 GSRADB= OO0G0O LOCSR 002136 L$STA 002066 G 
ERRHAN 052522 FRNT6é 015642 GSRADD= 000040 LOFUNC 020254 L$SW 016566 G 
ERRLNT 002260 FRMT? 015717 GSRADF= 000200 L 007111 LSTIML 002022 G 
ERRVEC 002122 FRNTS8 015771 GSRADL= 000120 LINE.F 040210 G LSTIMU 002020 G 
ERR. HR 053300 FRNT9 016112 GSRADO= 000020 LINE1 015056 L$TIM1 002016 G 
ERR. SF 053304 FRNT98 016415 GSRADT= 000100 LINE2 015112 L$TST! 002074 G 
ERRO 014044 G FRNT99 016467 GSXFER= 000004 LINES 015334 LSUNIT 002014 G 
ERR1 014062 G FSAU = 000015 GSYES = 000010 LMSG 037663 L.CLK. 044520 
ERRIFO 053572 FSBGN = 000040 HCORED 044714 LOAD.F 045152 L10000 014060 
ERR1iO0 014502 G - FSCLEA= 000007 HCOREQ 044574 LOGMSG 057204 L10001 014072 
ERR11 014554 G FSOU = 000016 HCORET 040146 G LOPIMN 002264 L10002 014134 
ERR12 014626 G FSEND = 000041 HCRCME 007064 LOPIMX 002262 L10003 014206 
ERR13 014702 G FSHARD= 000004 HOHOME 021154 LPBFR 037764 G L10004 014254 
ERR14 014750 G FSHW = 000013 HOREND 002460 LPCNTR 037762 G L10005 014312 
ERR1iS 015016 G FSINIT= OO0006 HDRLST 020510 LPT.AD 044552 L10006 014354 
ERRZ 014074 G FSJMP = 000050 HORTAB 002304 LPT. RE O44546 L10007 014362 
ERRS 014136 G FSMOD = 000000 HERTZ. O44534 LS!I.RE O44542 L10010 O14434 
ERRY 014210 G FSMSG = 000011 HNFMES 007072 LUP 065274 L10011 014500 
ERRS 014256 G FSPWR = 000017 HOLOSP= 000020 LUP.AD 052520 L10012 014552 
ERRE 014314 G FSRPT = 000012 HPTCOD 016550 G LSAUT 002070 G L10013 014624 
ERR? 014356 G FSSEG = 000003 HROPRM 037"02 G LSCCP) QO02044 G L10014 014700 
ERRS 014364 G FSSOFT= 000005 HSARB = 063774 LSCLEA 017606 G L10015 014746 
ERRO 014436 G FSSRV = 000010 ININIT 040136 G LSDEPO 002011 G L10016 015014 
ESC.PC 052514 FSSUB = 2 INITCO 016740 G LSDEVP 002052 G L10017 015054 

E. BA 002220 FSSH = 000014 INITIA 057212 LSDISP 016602 G L10020 016564 
E.cS 002216 FSTEST= 01 INIT. M 045554 LSOR 002102 G L10021 016600 
E. DA 002222 GARBAG 060536 INIT.R 037750 G LSORCT 002062 G L10022 017604 
E. MP 002224 GDDAT 002156 INPUTA 060140 LSDRS 002064 G L10023 017700 
E.MP1 002226 GETCHR 057242 INTEN = 000100 LSDRST 002102 G L10024 017704 





OUTERR 
DZRLEA 


110025 


MACY11 3001046) 
. SUP 11-OCT-77 


017712 


037740 G 
037742 G 


O3-NOV-77 10:02 PAGE 85-2 
15: 39 


SYMBOL TABLE 
042242 


060512 





PRINTF 


a] 
=~ 
oa 
ww 
oo 0 Of Ot oe oe oe 


L 10 


064014 
0 


oO 

So 

oO 

oe 

= 

o 
Ooooooog 


037526 G 


070320 G 


002154 


057134 
0 


002300 


SEQ 0128 


mM 10 
OUTERR MACY11 30(1046) Be wctit 10:02 PAGE 85-3 


DZRLEA. SUP 11-OCT-77 SYMBOL TABLE SEQ 0129 
T.cRC = =002114 T25 027154 G T44 036560 G WCKINT 007322 XPOLY 002142 
T.D0MP 016574 T26 027270 G T4S 036712 G WCKMES 007262 XTIME 066054 G 
T.LMT 016576 127 027446 G T46 037110 G WHY 02116 XTIMEN 066700 

T. SIZE 016572 128 030046 G T4? 37246 G WIDTH 054174 XTIMST 066076 
T1 021430 G 129 030470 G T 022330 G WRCHK = 000002 XXDP.D 044722 
T10 023510 G T3 022044 G T6 022462 G WRITE = 000012 X$ALWA= 

Til 023706 G T30 031116 G 1? 022620 G WRLOCK 010131 XS$FALS= 000040 
T12 024060 G T31 031576 G T8 023016 G WRTINT 007761 XSOFFS= 000400 
T13 024256 G T32 032230 G 023320 G WRTMES 007727 XSTRUE= 

T14 024456 G T33 032640 G UNITST 002130 WTCROY 021074 X1X1_ = 072000 
T15 024626 G T34 033072 G UNI. MA 045054 WTORDY 021034 SBREG O04 

T16 024730 G T35 033362 G UOPIMN 002270 XEQDIA 067346 G SENDAD 067320 G 
T1? 025054 G T36 033656 G UOPIMX 002266 XEQSUB 067334 G $SAV2 070364 G 
T18 025250 G 137 034150 G USER.P 040140 G XEQ.CL 047204 S$SAV3 070400 G 
T19 025404 G T38 034542 G USER. T 040142 G XEQ. CM 044512 SSAVY 070416 G 
T2 021700 G T39 035042 G UUT 002126 XEQ. IN 046666 SSAVS 070436 G 
T20 025536 G T4 022174 G VALID. 040402 XEQ. LA 043050 . = 072000 
T21 025656 G T4O 035402 G VAL.LA 041132 XEQ. OP 046760 

122 026036 G T41 035714 G VAL. SH 045170 XEQ. PR 042302 

T23 026614 G T42 036200 G VECMSG 037510 XEQ. TE 047024 

T24 027010 G T43 636470 G vECT = 000002 xMEM 002252 


. PBS. 072000 000 


ERRORS DETECTED: 0 


DSKZ: OZRLBA. OSKZ: DZRLBA=DZRLBA. SML. DZRLBA. P11,O0ZRLBA. SUP 
RUN-TIME: 58 63 1 SECONDS 

RUN-TIME RATIO: 630/122=5. 1 

CORE USED: 18K (35 PAGES) 





